NASA Technical Memorandum 78684 


A COMPUTES PROGRAM FOR CALCULATING SYMMETRICAL AERODYNAMIC 
CHARACTERISTICS AND LATERAL-DIRECTIONAL STABILITY DERIVATIVES 
OF WING-BODY COMBINATIONS WITH BLOWING JETS 


C. Edward Lem and Sudhir C. Mehrotra, University of Kansas 
and Charles H. FoXj Jr., NASA Langley Research Center 


March 1978 


(NASA-TH-78684) A COHPOTER PROGRAM FOR 
CAICDLATING SYHHETEICAL AESODYNAHTC 
CHARACTERISTICS AND LATERAL-DIRECTIONAL 
STABILITY DERIVATIVES OF WING-BODY 
COHBINATIOl^S WITH BLOWING JETS (NASA) 177 p G3/02 


N78-23054 


DncXas 

16763 


IW\S/V 

National Aeronautics and 
Space Administration 

Langley Research Center 
Hampton. Virginia 23665 




A COMFOTER PROGRAM FOR CALCULATING SYMMETRICAL AERODYNAMIC CHARACTERISTICS 
AND LATERAL-DIRECTIONAL STABILITY DERIVATIVES OF ¥ING-BODY COMBINATIONS 

WITH BLOWING JETS 

C . Edward Lan 

Sudhir C. Mehrotra 
University of Kansas 

and 

Charles H. Fox, Jr. 

NASA Langley Research Center 

INTRODUCTION 

This document describes in detail the necessary information for using a 
computer program to calculate the aerodynamic characteristics under symmetri- 
cal flight conditions and the lateral-directional stability derivatives of 
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wing-body combinations with upper-surface-blowing (USB) or over-wing-blowing 
(owe) jets. This program is an updated version of that described in NASA 
TM X-T398T (reference l). In addition to the features and restrictions 
described in reference 1, the following new features have been added to the 
program: (l) A fuselage of arbitrary body of revolution has heen included. 

The effect of wing-body interference can now be investigated. (2) All 
nine lateral-directional stability derivatives can be calculated. 

The program is written in Fortran language and runs on CDC Cyber 1T5 
and Honeywell 66 / 6 O computers. It is available from COSNffC of the University 


of Georgia, Athens, Georgia 



SYMBOLS 


T 


M. 


M 


■tj 


r(x) 


S 

V 


T. 

0 


V. 


m 


L.E. 


T.E. 


cross sectional area of the jet 
thrust coefficient = thrust /q_S^ 

Mach number of the jet 

Mach number of the freestream 

jet total pressure 

static pressure 

freestream dynamic pressure 

fuselage radius as a function of x 

wing area 

static temperature of the jet in or °K 

freestream static temperature in °R or °K 

jet velocity 

freestream velocity 

wing aspect ratio 

leading edge 

trailing edge 
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jet density 


freestream density 


ratio of specific heats 



Description of New -Program Features 


The program can he run without the fuselage, in exactly the same manner 
as described in reference 1. Therefore, all instructions concerning the 
preparation of wing- jet geometry in reference 1 are still applicable. When 
a fuselage is present, the coordinate origin should be assumed on the fuselage 
axis, with the positive x-axis coincident with the fuselage axis and pointing 
downstream. The wing and jet geometry should be defined accordingly. The 
jet is not allowed to wash the fuselage in the present program. Some restric- 
tions in preparing the fuselage geometiy are described below. 

(1) The fuselage must he a body of revolution; hut otherwise, arbitrary 
axial distribution of croSs-sectional area is allowed. No fuselage 
camber effect is included. For arbitrary bodies , their eq.uivalent 
bodies of revolution may be used. 

(2) The wing chord along the wing-hody juncture is best to he parallel 
to the freestresm. The wing planform as described by the input 
data should not penetrate into the fuselage. 

(3) The fuselage geometry can be described to the program by providing 
r(x) analytically to the function subprogram FUR(X) and r — to 
the function subprogram SLOP(X). Alternatively, the radii at a 
finite number of stations (restricted to he 21 or less) can be 
input . 

Since the fuselage aft body is greatly influenced by the displaced wake , 
and since the wake displacement is not accounted for in the program, the 
fuselage contribution to lift and pitching moment may not he accurate. However, 
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the fuselage lift is known to he small in most cases and can therefore he 
neglected. 

When the lateral-directional stability derivatives are to he calculated, 
the program will always start to compute the symmetrical aerodynamic charac- 
teristics first 5 as some of these derivatives depend on the symmetrical 
flight conditions . Therefore , it is not possible for the program to calcu- 
late these derivatives only, without calculating the symmetrical loading 
at the same time. As has heen sho>m previously (reference 2 ), the fuselage 
contribution to forces and moments is very much affected hy the viscous 
effect. More accurate evaluation of the fuselage contribution to the 
derivatives can he made if some last portion of the fuselage is not included 
in the force and moment integrations (reference 2 ). This is done in the 
present program hy providing a value to the input variable "Xl" which is 
related empirically to the last station to he included in the force and 
moment integrals. If it is not exactly clear from the geometry of the 
equivalent body of revolution what value of ’’Xl" should he input , a value 
of 0.75 - 0.85 for fuselages with upswept after body and 1.0 for others shoiild 
provide reasonable results under usual circumstances. 

The total number of vortices representing the wing can he determined 
with the following equation: 


ITC 

LPMEL = [lM(l) + ]JW(2) + IW(3)1 x [ E (ia(l) - l)] 

1=1 


where the input variables appearing on the right hand side are defined in 
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the section \mder Input Data Format. Since the -wing-hody interference is 
accounted for through the matching of Fourier components of the induced 
velocities on the fuselage surface, the number of additional unknowns due 
to the presence of the fuselage is equal to the product of the number of 
Fourier components "NT" used and the number of stations "NF" at which the 
body boundary condition is to be satisfied. Therefore , the total number 
of unknowns to be solved for the wing-body alone without the jet is 


LWF = LPMEL + NT X NF 


LPANEL is limited to 100 and LWF to 130. For good results, NT can be set 
to 2 and NF to 12-lU. 

The number of vortex elements used to represent the outside (or inside) 
of the jet surface can be computed as follows: 

Centered Jet 

NNJ 

JPAHEL = [ Z NCJ(I)] X [NSJ-l] 

1=1 


Outboard Jet 

NITJ 

JPMEL = [ E NCJ(I)] X [NSJ+l] 
1=1 


For wing— body configurations, the jet should be considered as non— centered. 
The number of unknowns to he solved without the fuselage is , again , 
(reference 1) 
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LTOTAL = LPAMEL + 2 x JPAWEL 


With the fuselage included, the total number of unknowns becomes 
LWWJ = LWF + 2 X JPAHEL 

where JPANEL is limited to 100 , or such that LPAifEL + JPAWEL is less than 
200. LTOTAL is limited to 300 and LV/EJ to 330. LV/FJ is the number to be 
used to calculate the array size for GAI^NIA(l) to be mentioned later. 
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INPUT DATA FORMAT 


Group 1 


Group 2 


Group 3 


. Format 13A6 1 card 

Any title identifying the cases to he run. 

. Format 3(6X,l4) 1 card 

ICASE Number of cases to he run. 

NG = 0 if all cases have the same geometry other than 
the angle of attack. 

= 1 if new configurations or different freestreara- 
jet velocity ratios are to he treated. 

ISYJ-i = 0 for a centered jet 
= 1, otherwise. 

LAT = 0 for symmetrical aerodynamic characteristics only. 

= 1 for lateral-directional stability derivatives in 
addition to symmetrical aerodynamic characteristics. 
. Format 8F10.5 1 card 

A141 Ilach number of the freestream 

A1^I2 Mach number of the jet flow 

VT^U Freestream velocity divided by jet velocity. 

TEt-IP Jet static temperature divided by freestream static 
temperature. Assumed to be the same as ratio of 
freestream density and jet density. 

ALP Angle of attack in degrees. 

XEL X-coordinate of the wing L.E. at the jet centerline. 

XET X-coordinate of the wing T.E. at the jet centerline. 
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note : If the thrtist .coefficient is given, Vl-iU may he computed as 


V. T 2H (S /2) 1/2 


V!4U = V /V, 

where = thrust coefficient 

S = wing area used to define C„. 
w X 

A = ;iet cross-sectional area 


When the thrust coefficient is computed with the static thrust , the 

following formvtla for V./V^ is preferred: 

J 


Y 


C^(S /2) 


_i= r t; 1 

2A.(p.7^V 


If the nozzle pressure ratio, p, ./p^oJ given, the following isen- 
tropic relations may he used. 


J 


T-1 

P -1 ^ 

-^[(-^) - 1: 
Y-l Poo 
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Group h 


Group 5 


T. 

-JL = 
T 


1 + 

2 °° 

1 + 

2 


V M ^ 

00 CO 1 

=r VT^ = -“= 

V. M. T. _ 

0 J (^,1/2 


. Format 2(6X, Zk) 5F10.5 

NFP Number of flap sections , including the jet span. 

A maximum of five flap sections may be input. 

NJP Numerical order of the jet span among the NFP sections - 

DF(I) Flap deflection angles in degrees for the flap sections. 

1=1, NFP 

, Format 7F10.5 1 card 

HALFSW One half of the reference wing area. 

CPiEF Reference chord 

TV7IST Difference in angles of attack at the tip and the root 
in deg. Negative for washout. 

TWISTR Incidence angle of the root chord in degrees. 

XJ X, Y, and Z-coordinates of the midpoint of the jet cross- 

YJ section at the exit. ZJ is referred to the wing plane. 

ZJ 

RJ Jet radius. 
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Note ; The last four variables are needed only for over-wing-bloving 
applications. They may be any non-zero numbers for USB appli- 
cations, unless the rectangular jet is not on the wing surface 
and the entrainment effect is to be accomted for. For the 
latter case, these variables are used to define the equivalent 
circular jet. 

Group 6. Format TFIO .5 1 card 

TEANGL Trailing-edge half angle of the airfoil at the jet center- 
line in deg. For USE applications, it may be arbitrary. 

PTIAL = 0. for clean or full-span flap configuration 
= 1. for partial-span flap deflection. 

USB = 1, for USB applications 

=0. for OWE applications 

CA14LER L.E. camber slope at the root leading edge 

CAMLET L.E. camber slope at the tip leading edge. 

CAMTER T.E. camber slope at the root trailing edge 

CAMTET T.E. camber slope at the tip trailing edge. 

Note ; For USB applications, TEANGL may be any value. If the camber 
ordinates are to be read in, the leading edge and trailing 
edge camber slopes may be arbitrary ninnbers. 

Note ; The following card must be omitted for OWE applications. 

Group T Format 3F10.5 1 card 

CJ4U Jet thrust coefficient 

DFJ Jet deflection angle in degrees at the trailing edge relative 
to the chord line. At small flap angles, it may be taken as 
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the sum of flap angle and the airfoil trailing edge half 
angle . At large flap angles , experimental values shotild 
he used, 

TBJ = 0. if the entrainment is not to he accounted for. Usually 
this is the case if the jet is on the wing surface. 

= 1. if the entrainment due to an equivalent round jet 
is to he accounted for when a rectangular jet is not on 
the wing surface. 

Group 8 Format 8(6X, lU) 1 card 

WC Uumher of spanwise sections. A natiiral way of dividing a 

I 

planform into sections is to follow lines of discontinuity, 
such as edges of partial-span flap, jet boundaries, wing 
edge discontinuities, etc. See Figure 1. KC is limited to 8. 
Ml(l) Uumher of vortex: strips in each spanwise section, plus one, 

1=1 ,NC Minimum value for each is 3. Maximum for each Ml(l) is 31. 

The total number of spanwise strips is limited to 30. 

IIWING Numerical order of last wing spanwise section. 

Group 9 Format 5(6x, lU) 1 card 

NJ¥(l) The numerical order of the flap and jet spans among 
Is=l,KFP the spanwise sections. 

Group 10 Format 5(6X, lU) 1 card 

NW(l) Number of chordwise vortex elements in each chordwise section. 
W(2) The planform is divided into chordwise sections according 
IW(3) to such lines of discontinuity as jet exit, flap hinge, etc. 
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If there is only one section, SET UW(2) = MW(3) = 0. For 
2 sections, SET NW(3) = 0. 

ICAM = 1 if the camber ordinates of the airfoils are to be 
read in. 


dZ 

=0, otherwise. In this case, the camber functions (w— ^ ) 

dx 

in close-form expressions are to be inserted manually into 
subprograms ZCR(x) and ZCT(X) , the root chord and tip 
chord camber functions , respectively. 

IM Number of camber ordinates to be read in. (Limited to eleven) 

Arbitrary if ICAjVI = 0. 

Note ; Group 11 must be deleted if ICA14 = 0. 

Group 11. Format 8F10.5 or 8 cards 

.7=^,1!': j'on-dimensional x-coordinates to define root 


cariter . 


ZC(l,J), J=l,I]i 

XT(2,J), J=1,IM 
ZC(2,J), J=1,IM 
Group 12. Format 6F10.5 


Non-dimensional camber ordinates of the 
root chord. 

Non-dimensional x-coordinates to define tip camber 
Non-dimensional camber ordinates of the tip chord. 
1 card for each wing section. 


XXL(1) x-coordinate of the leading edge of the inboard boimdary 
chord of a given spanwise section. 

XXT(i) x-coordinate of the trailing edge of the inboard boundary 
chord of the same spanwise section. 

YL(i) y-coordinate of the inboard boundary chord. 

XXL(2) x-coordinate of the leading edge of the outboard boundary 
chord of the same span^se section. 
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XXT(2) x-coordinate of the trailing edge of the outboard boundary chord 
YL(2) y-coLordinate of the outboard boundary chord. 

ZS z-coordinate of the wing panel relative to the fuselage 

centerline . 

Group 13. Format 6(6X, ib) 1 card 

IIUJ Number of Jet sections. 

Note . The Jet region above or on the wing must be 
divided into streamwise sections by following the divided 
planform pattern. It is important to start the Jet 
sections always from the wing leading edge even if the Jet exit 
is downstream of the leading edge. The only exception is when 
the jet exit is at the trailing edge. In this case, 

NNJ=1 and the Jet section starts from the trailing edge. 

NNJ is limited to 1;. For the configuration of Figure 1, 

N1TJ=4. 

NSJ = Number of jet circumferential strips minus one for a non- 
centered Jet (always use odd numbers). 

= Number of Jet circumferential strips on the half Jet plus 
one for a centered Jet (always use even numbers). See 
figure 3 of ref. 1. 

NCJ(l), No. of streamwise vortex elements in each section. There 
1=1, NNJ 

should be MJ numbers. For those Jet sections above the 
wing, these numbers should agree with the corresponding 
numbers of wing vortices. See NW(l). NW(2), HW(3) in 
Group 10. 
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Note ; Group l4 must be deleted for USB applications 


Group ll». Format 6F10.5 BUJ cards 


XXL(l) 

XXT(l) 

YL(1) 

XXL(2) 

XXT(2) 

YL(2) 


Coordinates of bounding chords of the jet section 
projected on the x-y plane. For definition, see Group 12. 


Mote. Group 15 is to be deleted for OTO applications. 

Group 15 . Format UFIO.5 (UxMJ) cards. 

XXL(I) Coordinates of the bounding lines defining the 
XXT(I) rectangular jet sections in USB applications. 

YL(I) They are the x-coordinates of the leading and 
ZL(i) trailing edges, the y-coordinate and the z- 
1=1,..., U coordinate of the bounding line. The 4 stream- 
wise edges of each section are defined in the 
order illustrated in figure 2 . There are 4 
cards for each jet section. The jet section be- 
hind the trailing edge, (trailing jet section), 
should be at least one local chord in length. 

Group 16 Format 2(6X, l4) 1 card 

MDG Number of sections in which the dihedral is to be 
defined. It does not have to be the same as NC 
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defined in Group 8. HDG must be at least 1. and limited. 
to 5. 

MDG = 1 if the dihedral angle of any section is not zero. 

= 0 if no dihedral exists. 

Group 17 Format 8F10.5 

SKG(i) Dihedral angle in degrees of the first section. Negative 
for anhedral. 

YG(1 ) the outboard y-coordinate of the first dihedral section. 

Repeated NDG times. 

Group l8 Format 6(6X, lU) 1 card 

KF = 1 if the fuselage is present 

=0, otherwise 

NT Number of Fourier components used to satisfy the fuselage 

surface boundaiy condition (excluding the zero-order 
component). Limited to 5* Noirmally, NT = 2 should pro- 
vide- good results., If NT of more than 2 is to be used, 
care should be taken as NT*I5F is limited to 30 in the pre- 
sent array dimension specifications 

NCU14 Number of fuselage circumferential locations at which 
the pressure loading is to be computed. For midwing 
configurations, use even numbers. Normally, 7 or 8 should 
be sufficient. Limited to 10. 

IJF Number of control stations along the fuselage axis at which 

the fuselage surface boundary condition is to be satisfied. 
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Uormally, 12 lit- should he sufficient. Limited to 

20 . 

KW Set to 1 always . 

NKF(i) Set to he equal to ini'. 

Note . If no fuselage is present , all input variables can he zero in Group 

18. 

Note: The following input data, Groups 19, 20, and 21 must he omitted if 

no fuselage is present. 

Group 19 Format 6F10.5 1 card 

XAS(l) x-coordinate of the fuselage nose. 

XAS(2) x-coordinate of the fuselage tall. 

FUSIND = 0. if the fuselage geometry (i.e., r(x)) is to he 

defined analytically in subprograms FUE(x) and SLOP(X), 
where FUF(X) = r(x) and SLOP(X) = r dr/dx. 

= 1. if r(x) is to he defined numerically in Groups 20 
and 21. 

FUSNO = number of fuselage stations to he input to define r(x) 
if FUSIND = 1. Limited to 21. 

= 0., otherwise 

XI Body station in fraction of body length at which the rate 

of change of cross-sectional area with body length first 
reaches max i tmim negative value. See the section under 
Descriptxon of New Program Features. 

XJF = 1. if the lower inboard edge of the USB jet is on the 
fuselage. Note . This situation should he avoided as 
much as possible. 


IT 



= 0, , otherwise. 

ITote . Groups 20 and 21 should he omitted if FUSIM) = 0. 

Group 20 Format 8F10. 5 

XFF(I) Fuselage x-stations referred to the coordinate origin 

to define r(x). Total number of stations is defined by 
FUSIO. 

Group 21 Format 8F10.5 

RFF(I) Fuselage radii corresponding to the x-stations XFF(l). 

Group 22 Foimat F10.5 (iCASE-l) cards 

ALP angles of attack in degrees. These cards are to he 
included only if additional angles of attack for the 
same configuration and VMU (ITG=0) are to he rim. 

Note ; The read statements for the input data in group 3 thru 

group 21 can he seen in subroutine "GEOMTY" of the program 
listing along with a short definition of the parameters to 
he read in. The read statements for groups 1, 2, and 22 
along with the corresponding parameter definitions can he 
seen near the beginning of the program listing in the main 
routine. 
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Pre-Run Check List 


Before the program is run, the following checklist should he com- 
pleted: 

(1) The array, GAMMA., defined in the subroutine "SOLUTU*' , should 

2 

he dimensioned to have at least (H+l) /h elements, where IT 
is the total number of unknowns (=LTOTAL or LOTJ ) . 

(2) For R = 256, the minimum memory needed is 48 k (decimal). 

For any other R, the req.ud.red memory can he computed accordingly, 
based on the change in GAMMA array. 

(3) The root and tip camber slope functions should be defined 
manually in the subprograms ZCR(X), ZCT(X) respectively, 
otherwise the root and tip camber ordinates should be read in. 

The camber slope function, dz^/dx, is defined with respect to a 
unit chord length. Similarly, the fuselage shape r(x) and 

r dr/dx should be defined manually in the subprograms FUR(X) 
and SLOP(X), respectively. Otherwise, r(x) should be read in 
numerically. 

(h) Seven teiiq)orary files or tapes must be provided, being designated 
as (01) through ( 04 ) and (OT) throu^ (09). 

(5) Check input data. 
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OUTPUT DATA FORMAT 


First the title of the joh and the input data ■will he printed in the 
same format as -it "was input. If the joh is an over-wing hlo'wing configu- 
ration the computed jet entrainment •will he printed after the fourth line 
of input data as follows: 


XJET 


RJET 


DX 


HALF SW 
GREF 
LPAHEL 
JPAKEL 
LWFJ 


Do-wnstream distance of a given cross-section from the 

jet" exit di-vlded hy the jet radius at the exit 

the radius of the jet cross section divided hy the original 

jet radius (r ). 

o 

Values printed are actually the nondimensionalized en- 
trainment fimction E(x) (see equation 33 of reference 3) 
the reference half-wing area 
the reference chord 
the number of 'vn.ng vortices 
the number of outer (or inner) jet vortices 
total number of uhkno'wns to he solved. 


LWFJ = LPAHEL + JPAEEL*2 + NT*HF 


If the joh is an OUB configuration a note will he printed at this time 
indicating the shape of the equivalent jet cross-section used for the 
interaction computations along with 3 parameters defined below. 

1. x-coordinate where the eqToivalent jet properties 
are evaluated. 
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2. Eq^ui valent Jet Radius: the radius of the jet at the 

X location listed above 

^ the velocity ratio of the equivalent jet. 

j 


Vortex Element Endpoint Coordinates 


(X^,Y^,Z^) coordinates for the inboard endpoint of a bound vortex 


element 


coordinates for the corresponding outboard endpoint. 
IJing elements are listed first and then jet elements. 
The number of elements listed shoxild equal (LAST). 
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Control Point 'Coordinates 


2 columns of control point coordinates , one point for each vortex 
element. Number of points listed should equal LPANEL. + JPAKEL. 
Sectional Pressure and Force Data 


XV 

YV 

CP 


CPW 


Y/SP 


CL 


CM 


CT 


CDI 


CL¥ 


Percent chord location 
Percent half span location 

the total AC^ at the given (XV, YV) point due to both wing- 
body and jet induced .circulation 

The AC that would occur at that same point for the wing- 
P 

body alone case 

the y-coordinate of the chord in question divided by the 
half-span 

The sectional lift coefficient due to circulation (jet on), 
nondimensionalized with q^c. 

The sectional pitching moment coefficient about the Y-axis, 

2 

nondimensionalized with q^c . 

The sectional leading edge thrust coefficient , nondimension- 
alized with a c. 

-CO 

The sectional induced drag coefficient , nondimensionalized 
with q^c . 

The sectional lift coefficient for the wing-bc'iy 
case 

The sectional pitching moment about the Y-axis for the 
wing-body alone case 
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CD¥ The sectional induced drag coefficient for the wing-body 
alone case. 


Total Force and Moment Data 


The lift Co- - The total circulation lift coefficient due to the 

efficient 

wing, wing- jet interaction and entrainment (if any). 

Fuselage lift is not included. 

Total Induced Total induced drag coeff. for the jet on case 
Drag Coeff iciest 

Induced drag = Cj^ 

parameter I 1 

„ 2 ireAE 

Total Pitching = Pitching moment coefficient due to all circulation forces. 
Moment Coefficient 

about the Y-axis. londimensionalized with CREF. Fuselage 
moment is not included. 

Note ; In the case of OWE jobs, these coefficients reflect 

the total jet-on forces and moments, but for USB jobs 
the Coanda force and moment coefficients must be added 
to these; see below. 


USB Jobs 


Coanda Lift - The lift coefficient due to the lift component of the 

Coefficient 

jet reaction force 

Coanda Drag - Drag coefficient due to the drag component of the jet 

Coefficient 

reaction. Jet thrust is included. 

The Coanda - Pitching moment coefficient due to the pitching moment caused 

Moment Coeff . 

by the jet reaction force (about Y-axis). 
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0.¥.B. JoBs 


In the case of O.W.B. Johs the next three coefficients listed have the 
same definitions as the first three except that the effects of wing-jet 
interaction have heen ommitted from the computation. 

All Jobs 

The next four coefficients printed are due to aerodynamic forces and 
moments with jet off. 

The fuselage lift and pitching moment coefficients are printed 

next. 

If the lateral-directional stability derivatives are to he computed, 
they will be printed last, both based on the body axes and the stability 
axes. It should be noted that additional side force at the engine 
inlet, and therefore additional yawing moment, would occur due to yawed flow 
conditions, such as in side slip. These effects are not included in the 

output. For more details, see ref. 4, for example. The 3-derivat ives 
are in per radian. 
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Example Input and Output 


Test Case 1 is for an upper-surface blowing configuration 
of a wing with zero camber. 

Test Case 2 is for the wing-body configuration of ref. 5- 
Test Case 3 is for a wing-body configuration of zero camber 
with over-wing blowing. 
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Listing of Input Data Cards for Test Case 1 


Card 


) 

TP’PT r^c'F ' 

1 • 

I^ITN'P OM Y 

« «* 






? 


1 

0 


1 


1 





T 

0. 

c. 


n.ippc 


1 . 

c 

• 


0. 07777= 

0.46PP7 


4 


1 

1 

0 . 








c 

n , 

0,3ff-’ 


0. 


-3 

^ • 

0.77=5] 


0.759 

0. 

1 , 

f 

n . 

0. 


1 . 


0. 

0. 


0. 

0. 


7 

1 .fl 

10, 


0 . 








P 


3 

? 


4 


q 

3 




<; 


f' 










10 


•X 

4 


0 


n 

0 




11 

-0.1P7 

0 ,074^.? 


0, 


-0.074PK 

0.157=7 


0.151 

0.15] 


1 ? 

-0, o?4n«= 

0 ,1 (t?K7 


0,15] 


0.0=06 

0,79777 


0.3759 

0.151 


1 " 

O.OQOft 

0,PC33? 


0.3750 


0.55073 

0.O17P3 


1 . 345 ? 

0.151 


14 

0,074f? 

0.7P1 


0. 


0,157 = 7 

0 . 43734 


0.151 

0.151 



0,107^7 

0,43374 


0.15] 


0 ,?q??7 

0,503? 


n,376Q 

0 , 151 


1 f' 

0 

0.5037 


0.375° 


0.P17P3 

0 ,P1 7P-5 


1.345? 

0.151 


17 


3 

7 


3 


4 

4 




1 « 

-0,0340= 

0 . 1 (-1^1 


0.15] 


0.151 







-0,0340'=: 

0 . 1^7=7 


0.15] 


0.277 






?0 

0 , ncof> 

0.70??? 


0.775Q 


0.777 





0 

?1 

0 . 

0.7°?77 


0 ,T7AC 


0.151 





?? 

0 , lf^7<^7 

0.4‘5334 


0.15] 


0.15] 







0,lf7=7 

0 .43774 


0.15] 


0.777 






?4 

0 ,?q??? 

0 ,<^07 3 


0 , 775 c 


0.777 







0 

0.^077 


0 , 375 c 


0.15] 







0,4 ^3?4 

o.qro>^7 


0.151 


0.15] 






?7 

n,4^3?4 

0 ,Qf!0‘^3 


0.15] 


0.777 







0.^073 

n.ojp 


0.775Q 


0,777 





Q ra 


0 ,'=03t 

O.aif. 


p,375q 


0.151 






‘’0 


1 

1 









11 


1 ,74A3 












0 

0 


0 


0 

0 


0 




*♦+ TEST CASE 1^ wING HNLY *♦♦ 

^t^t<ti^*^t****************** ****** ******* 

10 11 

xxxxxxxxxxxxxxxxxxxxxxxxx 
CASE NUMBER - 1 
XXXXXXXXXXXXXXXXXXXXXXXXX 


INPUT DATA 


0.00000 

0.00000 

. 13650 

l.OOOOC 

5.00000 

.02828 

1 

1 

o.ooono 




.45500 

.36630 

0.00000 

3.0000C 

.22961 

.26900 

0.00000 

0.00000 

1.00000 

0.00000 

C. 00000 

0.00000 

1.80000 

10.00000 

0.00000 




3 

I 9 

3 

4 

9 

3 


{ C 

3 

4 

0 

0 

0 


-.12700 

.07462 

n, 00000 

-.03405 

.16757 

.16100 

-.03405 

.1675 7 

.16100 

.09060 

. 29222 

.37690 

.09060 

.29222 

. 37690 

.65023 

.81783 

1.34620 

.07462 

.33100 

0.00000 

.16757 

.43324 

.16100 

.16757 

.43324 

.16100 

.29222 

.50330 

.37690 

.29222 

.50330 

.37690 

.31783 

.81783 

1.34620 

3 

7 

3 

4 

4 


-.03405 

.16757 

.16100 

.16100 



-.03405 

.16757 

.16100 

.22700 



.09060 

.29222 

.37690 

.22700 



.09060 

.29222 

. 37690 

.16100 



.16757 

.43324 

. 16100 

.16100 



.16757 

.43324 

. 16100 

.22700 



.29222 

.50330 

. 37690 

.22700 



.29222 

.50330 

.37690 

.16100 



.43324 

.90053 

.16100 

.16100 



.43324 

.90053 

. 16100 

.22700 



.50330 

.91600 

. 37690 

.22700 



.50330 

.91600 

.37690 

.16100 



1 

1 





5.00000 

1.34620 





0 

0 

0 

0 

0 

0 

HALF SW« . 

45500E+00 

c 

REF- .36630E+00 

LPANEL» JPANEL^ LWFJ» 





91 

88 

2o7 




VORTEX ELEMENT ENDPOINT COOROtNATES- 



XI 

X2 

yi 

Y2 

71 

22 

-.11349 

-.06702 

0.00000 

.03050 

.16i00 

.16100 

-.02619 

.02028 

0.00 j 00 

. 3 0 3 0 

. 16100 

.16100 




.06111 

-.06702 

.02028 

.10759 

-.0205 A 

.06676 

.15406 

.01793 

.10523 

.19254 

.06563 

.15294 

.24024 

.10411 

.19141 

.27871 

.14144 

.22776 

.31408 

.20365 

.28833 

.37300 

.28747 

.36993 

.45238 

.38278 

.46272 

.54266 

.47809 

.55551 

.63293 

.56191 

.63711 

.71232 

.62412 

.69768 

.77124 

.08628 

.16919 

.28643 

.36934 

.13198 

.20938 

.31884 

.39623 

.17768 

.24957 

.35124 

.423 i 3 


.10759 
-.02054 
.06676 
.15406 
.01793 
.10523 
.19 25 4 
.06563 
.15294 
.24024 
.10411 
. 19141 
.27871 
.14144 
.22776 
.31408 
.20365 
.28833 
.37300 
.28747 
.36993 
.45238 
.38278 
.46272 
.54266 
.47809 
.55551 
.63293 
.56191 
.63711 
.71232 
.62412 
.69768 
.77124 
.65722 
.72991 
.80259 
.13198 
.20938 
.31884 
.39623 
.17768 
.24957 
.35124 
.42313 
.21551 
.26284 
.37806 
.44539 


0.00000 
.08050 
.08050 
.08050 
.16100 
.16100 
.16100 
. 22764 
.22764 
.22764 
.31026 
. 31026 
.31026 
.37690 
.37690 
.37690 
.44183 
.44183 
.44183 
.55002 
.55002 
.55002 
.69579 
.69579 
.69 5 79 
.86155 
.06155 
.86155 

1.02731 

1.02731 

1.02731 

1.17308 

1.17308 

1.17308 

1.28127 
1. 28127 

1.28127 
0.00000 
0.00000 
0. 00000 
o.oococ 

.08050 
.03050 
. 080 50 
.08050 
.16100 
. 16100 
.16100 
.16100 


,08050 
.16100 
.16100 
, 16100 
.22764 
.22764 
.22764 
.31026 
.31026 
.31026 
.37690 
,37690 
.37690 
.44183 
.44163 
.44183 
.55002 
.55002 
.55002 
.69579 
.69579 
.69579 
.86155 
.86155 
. 86155 

1.02731 

1.02731 

1.02731 

1.17308 

1.17308 

1.17308 

1.28127 

1.28127 

1.28127 

1.33884 

1.33884 

1.33884 
.08050 
.08050 
.08050 
.08050 
.16100 
.16100 
,16100 
. 16100 
.22764 
.22764 
.22764 
,227 o 4 


.16100 
. 16100 
.16100 
. 16100 
.16100 
. 16100 
.16100 
. 16100 
.16100 
.16100 
.16100 
. 16100 
.16100 
.16100 
.16100 
.16100 
.16100 
.16100 
.16100 
.16100 
.16100 
. 16100 
. 16100 
.16100 
. 16100 
.16100 
. 16 i 00 
.16100 
‘ .16100 
.16100 
.16100 
.16100 
.16100 
. 16100 
. 16100 
.16100 
.16100 
.16100 
.16100 
.16100 
.16100 
.16100 
,16100 
.16100 
. 16100 
.16100 
.16100 
.16100 
.lolOr 


.16100 

.16100 

.16100 

.16100 

.16100 

.16100 

,16100 

.16100 

.16100 

.16100 

.16100 

.16100 

.16100 

.16100 

.16100 

.16100 

.16100 

.16100 

.16100- 

.16100 

.16100 

.16100 

.16100 

.16100 

.16100 

.16100 

.16100 

.16100 

.16100 

.16100 

.16100 

.16100 

.16100 

.16100 

.16100 

.16100 

.16100 

.16100 

.16100 

.16100 

.16100 

.16100 

.16100 

.16100 

.16100 

.16100 

.16 ld 0 

.16100 

.16100 



.21551 

.26242 

.22764 

.31026 

. .16100 

.16100 

.23284 

.32410 

. 22764 

.31026 

.16100 

.16100 

,37806 

.41132 

.22764 

. 31026 

.16100 

.16100 

.44539 

,47300 

.22764 

.31026 

,16100 

.16100 

.26242 

,30025 

.31026 

. 37690 

.16100 

.16100 

.32410 

.35737 

, 31026 

.37690 

. 16100 

.16100 

.41132 

.43815 

.31026 

.37690 

.16100 

.16100 

.47300 

.49527 

.31026 

. 37690 

.16100 

,16100 

.30025 

.33492 

. 37690 

.44163 

. 16 100 

.16100 

.35737 

.38822 

,37690 

.44183 

.16100 

.16100 

.43815 

.46358 

.37690 

.44183 

.16100 

.16100 

.49527 

.51687 

.37690 

.44183 

.16100 

.16100 

.33492 

.39270 

. 44183 

.55002 

.16100 

.16100 

. 38822 

.43961 

.44183 

.55002 

.16100 

.16100 

.46358 

.50596 

.44133 

.55002 

.16100 

.16100 

.51687 

.55288 

.44183 

.55002 

.16100 

.16100 

.39270 

.47053 

.55002 

.69579 

.16100 

.16100 

.43961 

.50866 

.55002 

.69579 

.16100 

.16100 

.50596 

.56306 

.55002 

.69579 

.16100 

.16100 

.55288 

.60139 

. 55002 

.69579 

.16100 

.16100 

.47053 

.55904 

.69579 

.86155 

.16100 

.16100 

.50886 

.58760 

.69579 

.86155 

.16100 

.16100 

,56306 

,62799 

.69579 

. 86 155 

.16100 

.16100 

,60139 

.65655 

. 69579 

.86155 

. 16100 

.16100 

.55904 

.64755 

. 66155 

1.02731 

.16100 

.16100 

.58760 

,66634 

.86155 

1.02731 

.16100 

.16100 

.62799 

.69292 

.86155 

1.02731 

.16100 

.16100 

.65655 

.71171 

.86155 

1.02731 

.16100 

.16100 

.64755 

.72539 

1.02731 

1.17308 

.16100 

.16100 

,66634 

.73559 

1.02 7 3,1 

1.17308 

.16100 

.16100 

.69292 

.75002 

1.02731 

1.17308 

.16100 

.16100 

.71171 

.76022 

1.02731 

1.17308 

.16100 

.16100 

.72539 

.78316 

1.17308 

1128127 

.16100 

.16100 

.73559 

.78699 

1.17308 

1.28127 

.16100 

.16100 

,75002 

.79240 

1. 17308 

1.28127 

.16100 

.16100 

.76022 

.79622 

1.17308 

1.28127 

,16100 

.16100 

.78316 

.61390 

1.23127 

1.33884 

.16100 

,16100 

.78699 

,81433 

1.28 127 

1.33884 

.16100 

.16100 

.79240 

.01495 

1.28127 . 

1.33884 

.16100 

.16100 

.79622 

.01538 

1.26127 

1.33884 

.16100 

.16100 

-.02054 

-.02054 

. 16100 

. 16100 

.16100 

.22700 

.06676 

1 15 “ 

. loiOO 

. 16100 

.16100 

.22700 

.15406 

.15406 

.16100 

.16100 

.16100 

.22700 

.02054 

.01793 

.16100 

.22764 

.22700 

.22700 

.06676 

.10523 

.l&lOO 

.22764 

.22700 

,22700 

.15406 

.19254 

.16100 

.22764 

.22700 

.22700 

,01793 

.06563 

.22764 

.31026 

.22700 

. 227 Q 0 

. 10523 

•% t“ t 

• J. 

. 2276A 

.31026 

. 2270 r , 

.22700 

.19254 

.24024 

.22764 

.31026 

; 227 J ' 

.22700 



.06563 

.10411 

.31026 

.37690 

,15294 

.19141 

.31026 

.37690 

.24024 

.27871 

' .31026 

.37690 

,10411 

.10411 

.37690 

.37690 

.19141 

.19141 

.37690 

.37690 

.27871 

.27671 

.37690 

,37690 

.02054 

.01793 

.16100 

.22764 

.06676 

.10523 

.16100 

.22764 

.15406 

.19254 

.16100 

.22764 

.01793 

,06563 

.22764 

.31026 

.10523 

.15294 

. 2276 ^ 

.31026 

.19254 

.24024 

. 22764 

.31026 

.06563 

.10411 

.31026 

.37690 

.15294 

.19141 

.31026 

. 37690 

.24024 

.27871 

. 31026 

.37690 

.17768 

,17768 

.16100 

.16100 

.24957 

,24957 

, 16100 

.16100 

.35124 

.35124 

.16100 

.16190 

.42313 

.42313 

. 16100 

. 16100 

.17768 

.21551 

. 1610 Q 

.22764 

.24957 

.28284 

. 16100 

. 22764 

.35124 

.37806 

.16100 

.22764 

.42313 

.44539 

. 16 i 00 

.22764 

.21551 

.26242 

.22764 

. 3 l 026 

.28264 

.32410 

.22764 

.31026 

.37806 

.41132 

,22764 

. 31026 

. 44539 ; 

.47300 

i 22764 

.31026 

.26242 

.30025 

,31026 

. 37690 

.32410 

.35737 

.31026 

.37690 

,41132 

.43815 

. 31026 

.37690 

.47300 

.49527 

.31026 

.37690 

. 30025 

.30025 

.37690 

.37690 

,35737 

.35737 

.37690 

,37690 

.43815 

.43815 

.37690 

.37690 

.49527 

.49527 

.37690 

.37690 

.17768 

.21551 

, 16100 

.22764 

.24957 

.28284 

. 16100 

.22764 

.35124 

.37606 

.16100 

.22764 

.42313 

.44539 

. 16100 

.22764 

.21551 

.26242 

.22764 

.31026 

.28284 

.32410 

. 22764 

.31026 

.37806 

.41132 

.22764 

.31026 

.44539 

.47300 

.22764 

.31026 

.26242 

.30025 

.31026 

,37690 

.32410 

.35737 

.31026 

.37690 

.41132 

.43815 

. 31026 

.37690 

.47300 

.49527 

.31026 

.37690 

.45103 

.45103 

.16100 

.16100 

.57747 

.57747 

. 16100 

.16100 


.22700 

.22700 


,22700 

.22700 


.22700 

.22700 


.22700 

.16100 


.22700 

.16100 


.22700 

.16100 


.16100 

.16100 


.16100 

.16100 


.16100 

.16100 


.16100 

.16100 


.16100 

.16100 


.16100 

.16100 


. 16100 

. 16,100 


.16100 

,16100 


. 16100 

.16100 


.16100 

.22700 


.16100 

.22700 


. 16100 

.22700 


. 16100 

.22700 


.22700 

.22700 


.22700 

.22700 


,22700 

.22700 


.22700 

.22700 


.22700 

.22700 


.22700 

.22700 


.22700 

.22700 


.22700 

.22700 


.22700 

.22700 


.22700 

.22700 


.22700 

.22700 


.22700 

,22700 


.22700 

.22700 

.16100 

.16100 

oQ 

.22700 

.16100 

nig, 

St 

.22700 

.16100 

. 16100 

.16100 

.16100 

.16100 

.16100 

.16100 

'IP. l-tj 

.16100 

.16100 


.16100 

.16100 


.16100 

.16100 


.16100 

.16100 


.16100 

.16100 

. 16100 

.16100 


. 16100 

,16100 


. 16100 

.16100 


.16100 

.16100 


. 16 X 00 

. 2270*0 


.16100 

.22700 




.75630 

.75630 

.16100 

.16100 

.16100 

.22700 

.80274 

.88274 

.16100 

.16100 

.16100 

.22700 

.45103 

.47201 

. 16100 

.22764 

.22700 

.22700 

.57747 

.59390 

.16100 

.22764 

,22700 

.22700 

.75630 

.76627 

. 16100 

.22764 

,22700 

.22700 

.88274 

.88816 

.16100 

.22764 

,22700 

.22700 

,47201 

.49802 

.22764 

.31026 

.22700 

.22700 

.59390 

.61426 

.22764 

.31026 

.22700 

.22700 

.76627 

.77864 

.22764 

.31026 

.22700 

.22700 

. 88 B 16 

.89488 

.22764 

.31026 

.22700 

.22700 

.49802 

.51901 

.31026 

.37690 

.22700 

.22700 

,61426 

.63068 

.31026 

.37690 

.22700 

.22700 

.77864 

.78862 

. 31026 

.376 90 

.22700 

.22700 

.89488 

.90029 

. 31026 

.37690 

.22700 

.22700 

.51901 

.51901 

.37690 

. 37690 

.22700 

.16100 

.63068 

.63066 

,37690 

. 3769 Q 

.22700 

.16100 

.78862 

.78862 

.37690 

. 37690 

.22700 

.16100 

.90029 

.90029 

.37690 

.37690 

.22700 

.16100 

.45103 

.47201 

.16100 

.22754 

.16100 

.16100 

.57747 

.59390 

. 16100 

.22764 

.16100 

.16100 

,75630 

.76627 

.16100 

.22764 

.16100 

.16100 

.88274 

.88816 

.16100 

.22764 

.16100 

.16100 

,47201 

.49802 

.22 764 

. 31026 

.16100 

.16100 

.59390 

.61426 

.22764 

.31026 

.16100 

.16100 

.76627 

.77864 

.22764 

.31026 

.16100 

.16100 

.88816 

.89488 

.22764 

.31026 

.16100 

.16100 

.49802 

.51901 

.31026 

.37690 

.16100 

.16100 

,61426 

.63068 

,31026 

.37690 

.16100 

.16100 

.77864 

.78862 

.31026 

.37690 

.16100 

.16100 

,89488 

.90029 

.31026 

.37690 

.16100 

.16100 

CONTROL POINT 

■ COORDINATES - 




XCP 

TCP 

ZCP 

XCP 

TCP 

ZCP 

-.05336 

.04025 

. 16100 

.04745 

.04025 

.16100 

,09786 

.04025 

. 16100 

-.00688 

.12075 

.16100 

.09393 

.12075 

. 16100 

.14433 

. 12075 

,16100 

.03461 

.19262 

.16100 

.13542 

.19262 

.16100 

.18582 

.19262 

. 1610 C 

.07868 

.26895 

.16100 

.17949 

.26895 

.16100 

.22989 

.26895 

.16100 

.12275 

.34528 

.16100 

.22356 

.34528 

.16100 

.27397 

.34528 

. 1610 C 

.15762 

.40613 

.16100 

.25792 

.40613 

.16100 

.30807 

.40613 

.16100 

.20547 

.49029 

.16100 

,30429 

.49029 

.16100 

.35370 

.49029 

. 16100 

.27879 

.61922 

.16100 

.37534 

.61922 

,16100 

.42362 

.61922 

,16100 

.36872 

.77739 

. 16100 

.46250 

.77739 

.16100 

.50939 

.77739 

.16100 

,46442 

.94571 

.16100 

.55525 

.94571 

. 16100 

.60066 

.94571 

.16100 



* 55<»35 

1.10387 

.16100 

.68643 

1.10387 

.16100 

.71345 

1.23281 

.16100 

.67551 

1.31697 

.16100 

.80198 

1.31697 

.16100 

.24596 

.04025 

.16100 

.39406 

.04025 

.16100 

.28226 

.12075 

.16100 

.42016 

.12075 

.16100 

.31466 

.19262 

.16100 

. 44350 ’’ 

.19262 

. 16100 

.34908 

.26895 

.16100 

.46827 

.26895 

.16100 

.38350 

.34528 

.16100 

.49304 

♦34528 

.16100 

.41043 

.40613 

.16100 

.51278 

.40613 

.16100 

.44690 

.49029 

.16100 

.54009 

.49029 

.16100 

.50278 

.61922 

.16100 

.58193 

.61922 

.16100 

.57132 

.77739 

.16100 

.63326 

. 777,39 

.16100 

.64427 

.94571 

.16100 

.68787 

.94571 

.16100 

.71201 

1.10387 

.16100 

.73920 

1.10387 

.16100 

.76869 

1.23231 

.16100 

.78104 

1.23281 

.16100 

.80516 

1.31697 

.16100 

.80635 

1.31697 

. 16100 

.11716 

.16100 

.19400 

.03461 

.19262 

.22700 

.18582 

.19262 

. 22700 

.17949 

.26895 

.22700 

.12275 

.34528 

.22700 

.27397 

.34528 

.22700 

.24181 

.37690 

. 19400 

.03461 

.19262 

. 16100 

.18582 

.19262 

.16100 

.17949 

.26895 

.16100 

. 12275 

.34528 

. 16100 

.27397 

.34528 

.16100 

.30040 

.16100 

.19400 

.43324 

.16100 

. 19400 

.31466 

.19262 

.22700 

.44350 

.19262 

.22700 

.34908 

.26895 

.22700 

.46827 

.26895 

.22700 


.64240 

1.10387 

.16100 

.62766 

1.23281 

.16100 

.75635 

1.23281 

.16100 

.75982 

1.31697 

.16100 

.14124 

.04025 

.16100 

.35068 

.04025 

.16100 

.18473 

.12075 

.16100 

.37978 

.12075 

.16100 

.22356 

.19262 

.16100 

.40576 

.19262 

.16100 

.26480 

.26895 

.16100 

.43336 

.26895 

.16100 

.30605 

.34528 

.16100 

.46096 

.34520 

.16100 

.33805 

.40613 

.16100 

.48280 

.40613 

.16100 

.38100 

,49029 

.16100 

.51280 

.49029 

.16100 

.44681 

.61922 

.16100 

.55875 

.61922 

.16100 

.52753 

. 77739 

.16100 

.61512 

.77739 

.16100 

.61343 

.94571 

.16100 

.67510 

.94571 

.16100 

.69416 

1.10387 

.16100 

.73147 

1.10387 

.16100 

.75996 

1.23281 

.16100 

.77742 

1.23281 

.16100 

. 8029 i 

1.31697 

.16100 

.80741 

1.31697 

.16100 

.01635 

.16100 

.19400 

.16757 

.16100 

.19400 

.13542 

.19262 

.22700 

.07866 

.26895 

.22700 

.22989 

.26895 

,22700 

.22356 

.34528 

.22700 

.14100 

.37690 

.19400 

.29222 

.37690 

.19400 

.13542 

.19262 

.16100 

.07866 

.26895 

.16100 

.22989 

.26895 

.16100 

.22356 

. 34526 

.16100 

,20648 

.16100 

.19400 

.39433 

.16100 

.19400 

. 22356 

. 19262 

.22700 

.40576 

.19262 

.22700 

.26480 

.26895 

.22700 

.43336 

.26895 

. 22700 

.30605 

. 34528 

.22700 



.38350 

.34528 

.22700 

.46096 

.34528 

.22700 


.<(9304 

.34528 

.22700 

.32313 

.37690 

.19400 


.39776 

.37690 

.19400 

.47239 

.37690 

.19400 


.50330 

.37690 

. 19400 

.22356 

.19262 

.16100 


.31466 

.19262 

.16100 

.40576 

.19262 

.16100 


.44350 

.19262 

.16100 

.26430 

.26895 

.16100 


.34908 

.26895 

.16100 

.43336 

.26895 

.16100 


.46327 

.26895 

.16100 

.30605 

.34528 

.16100 


.38350 

.34528 

.16100 

.46096 

.34528 

.16100 


.49304 

.34528 

.16100 

.50167 

.16100 

,19400 


.66688 

.16100 

.19400 

;83210 

.16100 

.19400 


.90053 

.16100 

.19400 

.51076 

.19262 

.22700 


.67315 

.19262 

.22700 

.83553 

.19262 

.22700 


.90280 

.19262 

.22700 

.53271 

.26895 

.22700 


.68827 

.26895 

.22700 

.84383 

.26095 

,22700 


.90826 

.26895 

.22700 

.55465 

.34528 

.22700 


.70339 

.34528 

.22700 

.85213 

.34528 

,22700 


.91373 

.34528 

.22700 

.56374 

.37690 

.19400 


.70965 

.37690 

.19400 

.85556 

.37690 

.19400 


.91600 

.37690 

.19400 

.51076 

.19262 

.16100 


.67315 

.19262 

.16100 

.83553 

.19262 

.16100 


.90280 

.19262 

.16100 

.53271 

.26895 

.16100 


.68827 

.26895 

.16100 

.04383 

.26895 

.16100 


.90826 

.26895 

.16100 

.55465 

.34528 

.16100 


.70339 

.34528 

.16100 

.85213 

.34528 

.16100 


.91373 

.34528 

.16100 







xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 




ALPHA 

« 5 • 

000 DEGREES 





xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


VORTEX 


XV 


YV 

CP 

CPW 

1 


.02713 


.02990 

1.82867 

1.71493 

2 


.20250 


,02990 

.72016 

.65714 

3 


.37787 


.02990 

.49340 

.43323 

4 


.42765 


.02990 

.43644 

.37765 

5 


.58865 


.02990 

.40451 

♦32947 

6 


.81635 


,02990 

.27016 

.19962 

7 


.97735 


.02990 

.09796 

.06716 

8 


.02829 


,08970 

2.03928 

1.90521 

9 


.21113 


.08970 

.72867 

.66321 

10 


.39398 


,08970 ' 

.43966 

.42321 

11 


.44426 


.08970 

.42926 

.35985 

12 


.60059 


.08970 

.40638 

.31311 

13 


.82163 


. 08970 

.27184 • 

.18731 

14 


.97801 


,08970 

. 10743 

.06125 

15 


.02941 


.14308 

2.09304 

1.99767 



16 

.21949 

;14308 

.72271 

.67424 

17 

.40957 

.14308 

.34005 

.42083 

18 

.46033 

.14308 

1.03031 

.34900 

19 

.61214 

.14308 

1.14684 

.30524 

20 

.82684 

.14308 

.74894 

.18107 

21 

.97865 

.14308 

2.58549 

.05894 

22 

.03070 

.19978 

2.15486 

2.06422 

23 

.22912 

.19978 

.72365 

.68234 

24 

- .42754 

.19978 

.33955 

.41747 

25 

.47885 

.19978 

1.20752 

.33739 

26 

.62545 

tl9978 

1.17653 

.29922 

27 

.83278 

.19978 

.83687 

.17691 

28 

.97938 

.19978 

2.84410 

.05772 

29 

.03210 

.25649 

2{19760 

2.10094 

30 

.23963 

.25649 

.73448 

.68559 

31 

.44715 

{25649 

.34729 

.41466 

32 

.49907 

.25649 

.82231 

.32619 

33 

.63999 

.25649 

1.03385 

.29501 

34 

.83927 

.25649 

.72370 

.17474 

35 

;98018 

i25649 

2.69778 

.05705 

36 

i03315 

i30168 

2.23225 

2.12341 

37 

.24746 

.30168 

.75709 

.68777 

38 

.46176 

J30168 

.49725 

.41353 

39 

.51414 

{30168 

.39801 

.31884 

40 

.65081 

.30168 

.41337 

.29272 

41 

.84410 

.30168 

;31250 

.17377 

42 

i98078 

.30168 

.13371 

.05673 

43 

.03446 

;36420 

2.32885 

2.15159 

44 

.25733 

.36420 

.77401 

.69081 

45 

.48018 

{36420 

,48895 

.41008 

46 

.53312 

.36420 

,37450 

.30837 

47 

.66446 

.36420 

.37020 

.29036 

48 

.85019 

.36420 

.23657 

.17332 

49 

.98153 

.36420 

.08003 

.05685 

50 

.03681 

.45998 

2.34367 

2,16761 

51 

.27476 

.45998 

.75853 

.66688 

52 

.51271 

.45998 

.45320 

.40028 

53 

.56667 

.45998 

.32740 

.28752 

54 

.68856 

.45998 

.32671 

.28348 

55 

.86096 

.45998 

.20066 

.17167 

56 

.98285 

.45998 

.06672 

.05666 

57 

.04034 

.57747 

2.29861 

2.15077 

58 

.30113 

.57747 

.72135 

.66845 

59 

.56192 

.57747 

.41081 

.37736 

60 

.61740 

.57747 

.27429 

.^5154 

61 

.72503 

.57747 

.29162 

.26662 

62 

.8772t 

. 57747 

.18130 

.16513 

63 

.98486 

.57747 

.'06055 

.05502 

64 

.04526 

.70250 

2 .20105 

-2,08661 


ORIGINAL PAGE Ifa 
OB EOOR QUALITY 



65 

.33762 

.70250 


.66596 

.62825 



66 

.63037 

.70250 


.35479 

,33339 



67 

.68798 

.70250 


.20940 

.19663 



68 

.77575 

,70250 


.24752 

.23218 



69 

.89988 

.70250 


,15850 

,14847 



70 « 

.98765 

,70260 


.05355 

.05012 



71 

.05154 

.81999 


2.04510 

1.95818 



72 

.38472 

.81999 


.58129 

.55478 



73 

.71789 

.81999 


.27160 

.25849 



74 

.77821 

.61999 


.12967 

,12336 



75 

.84060 

.81999 


.17913 

.17032 



76 

.92883 

.81999 


.12039 

.11439 



77 

.99122 

.81999 


.04130 

.03930 



78 

.05856 

.91577 


1.78441 

1.71949 



79 

.43710 

.91577 


.43052 

.41351 



80 

.81564 

.91577 


.15061 

.14416 



01 

.87896 

.91577 


.04798 

.04590 



82 

.91303 

.91577 


,03227 

.07868 



83 

.96117 

.91577 


.06083 

.05815 



84 

.99521 

.91577 


.02162 

.02066 



85 

.06455 

.97829 


1,22583 

1.18523 



86 

.48181 

,97829 


.17224 

.16560 



87 

.89908 

.97829 


.04424 

.04228 



88 

.96501 

.97829 


.00548 

,00524 



89 

.97485 

.97829 


.01201 

.01147 



90 

.98877 

.97829 


.01070 

.01022 



91 

.99862 

,97829 


.00413 

.00395 



Y/SP 

CL 

CM 

CT 

CDI 

CLW 

CNW 

COW 

.02990 

. 59220 

-.07638 

.04034 

.04249 

.52105 

-.05282 . 

.03686 

.08970 

.63088 

-.14161 

.05403 

,03410 

.54665 

-.10411 

.02652 

.14308 

1.13401 

-.67387 

.06193 

.09684 

.56844 

-.15895 

.02431 

.19978 

1.19648 

-.82983 

.06942 

.09805 

,59004 

-.22333 

.02073 

.25649 

1.11087 

-.84433 

,07576 

.079&2 

.60982 

-.29312 

.01815 

.30168 

.73380 

-.44346 

.08049 

.02185 

.62471 

-.35181 

.01649 

.36420 

.73327 

-.50984 

.08716 

.01504 

.64387 

-.43638 

.01425 

.45998 

.73952 

-.63551 

.09462 

,00839 

.66970 

-.57211 

.01129 

.57747 

.74968 

-.80354 

.10039 

.00398 

.69569 

-.74509 

,00805 

.70250 

.75547 

-.98261 

.10408 

.00107 

.71338 

-.92811 

.00491 

.81999 . 

.73914 

-1,11948 

.10363 

-.00077 

.70601 

-1.06974 

.00243 

.91577 

.65436 

-1.10122 

.09265 

-.00160 

,62932 

-1,05947 

.00081 

.97829 

.41195 

-.73218 

.05920 

-.00196 

.39751 

-.70674 

-.00059 


THE LIFT COEFFICIENT « .76694 

TOTAL INDUCED DRAG COEFFICIENT ■* .02fll6 


THE INDUCED DRAG PARAMETER 


047*57 



TOTAL PITCHING MOMENT COEFFICIENT 


-.65297 


THE COANDA LIFT COEFFICIENT^ CLP ■ .A6567 

THE COANDA DRAG COEFFICIENT* COR • -1.A0297 

THE COANDA MOMENT COEFFICIENT. CMR » -.39958 

THE LIFT COEFFICIENT FOR THF WING ALONE- .60713 

THE INDUCED DRAG COEFFICIENT FOR THE WING ALONE- .01A35 

THE PITCHING MOMENT COEFFICIENT FOR tHE WING ALONE- -.A9990 

THE INDUCED DRAG PARAMETER FOR THE WING ALONE- .03892 

LATERAL-DIRECTIONAL STABILITY CHAR ACTERSTI CS WITH JET ON 

♦♦STABILITY DERIVATIVES EVALUATED AT ALPHA - 5.000 DEG. 

AND AT MACH NO.- O.OOO.BASED ON BODY AXES+++ 


CYB • 

-.1602586 

CLB 

m 

-.1686574 

CNB 

a 

,0063876 

CYP - 

.3305743 

CLP 

m 

-.4357465 

CNP 

a 

-.2673860 

CYR - 

.0267657 

CLR 

m 

.1535234 

CNR 

- 

-.0067337 

♦♦STABILITY 

DERIVATIVE 

S BASED 

ON STABILITY AXES^+^ 

CYB - 

-.1602586 

CLB 

m 

-.1681000 

CNB 

a 

.0211053 

CYP - 

,3329100 

CLP 

It 

-.4456330 

CNP 

a 

-.2299484 

CYR • 

-.0020324 

CLR 

a 

.1909618 

CNR 

a 

,0032027 

LATERAL-DIRECTIONAL STABILITY 

CHARACTERSTICS 

WITH 

JET OFF 

♦♦STABILITY 

DERIVATIVE 

S EVALUATED AT ALPHA » 

5. 

000 DEG. 

AND AT MACH NO.- 0 

.000, 

based on body 

AXES*** 


CYB • 

-.1346015 

CLB 

3 » 

-.1653598 

CNB 

a 

.0059699 



CYP - 

,1397994 

CLP 

n 

-.4371177 

CNP 

11 

CYR ■ 

.0201641 

CLR 


.1430642 

CNR 

M 

♦♦stability 

DERIVATIVES 

BASED 

ON stability 

AXES*** 

CYB » 

-.1346015 

CLB 

m 

-.1648388 

CNB 

0 

CYP - 

.1415590 

CLP 

M 

-.4368374 

CNP 

0 

CYR » 

.0079643 

CLR 

9 

.1806995 

CNR 

- 


,1398524 

,0058492 

.0204002 

•.1022171 

■.0061295 





Listing of Input Data Cards for Test Case 2 


Caxd 


I 


T ^ D - 777 P 

« 

HIGH UING C 8 LT 4 F »44 

DECREES 


? 


1 

0 

1 

1 



3 

0 . 

0 . 

0,14142 

1 . 

5 . 

- 0 . 1?7 

0,3175 

4 


2 

1 44 . 

44 . 




5 

0.455 

0,3663 

0 . 

3 . 

0.07462 

0.269 

0 . 

6 

0 , 

1 . 

1 . 

0,30508 

0,30508 

- 0.02208 - 0,02208 

7 

3.132 

44 . 

0 . 





8 


4 

3 

4 

c 

5 

4 

9 


2 

3 





10 


3 

? 

2 

0 



12 

- 0.127 

0.07462 

0 . 

- 0 , 1?7 

0,07462 

0,161 

0.161 

12 

- 0.127 

0,07462 

0.161 

- 0,127 

0.07462 

0,3769 

0.161 

13 

- 0.127 

0 . 0746 ? 

0,3769 

- 0.127 

0.07462 

0.7695 

0.161 

14 

- 0.127 

0.07462 

0,7695 

- 0.127 

0.0406 

1.3462 

. 0,161 

15 

0,07462 

0,29073 

0 . 

0.07462 

0,25669 

0,161 

0.161 

16 

0.07462 

0,25669 

0.161 

0,07462 

0,21104 

0,3769 

0.161 

17 

0.07462 

0.21104 

0,3769 

0.07462 

0.12802 

0.7695 

0,161 

18 

0,07462 

0,12802 

0.7695 

0,0406 

0,0406 

1 . 346 ? 

0.161 

19 

0,29073 

0.381 

0 . 

0.25669 

0.34029 

0.161 

0,161 

20 

0,25669 

0.34029 

0.161 

0,21104 

0,2857 

0,3769 

0.161 

21 

0.21104 

0,2857 

0,3769 

0.12802 

0.18642 

0,7695 

0.161 

22 

0.12802 

0 , 1864 ? 

0.7695 

0.0406 

0.0406 

1.3462 

0.161 

23 


4 

7 

3 

2 

2 

4 

24 

- 0.127 

0 , 0746 ? 

0.161 

0.161 




?5 

- 0,127 

0 , 0746 ? 

0,161 

0,227 




26 

- 0,127 

0.07462 

0.3769 

0.227 




27 

- 0,127 

0,07462 

0,3769 

0.161 




28 

0,07462 

0,25669 

0.161 

0.161 




29 

0,07462 

0,25669 

0.161 

0,227 




30 

0 . 0746 ? 

0.21104 

0.3769 

0,227 




31 

0.07462 

0,21104 

0,3769 

0.161 




32 

0,25669 

0.34029 

0.161 

0.161 




33 

0.25669 

0.34029 

0.161 

0.227 




34 

0.21104 

0,2857 

0.3769 

0,227 




35 

0.21104 

0,2857 

0,3769 

0.161 




36 

0.34029 

0.80758 

0,161 

0.161 




37 

0.34029 

0,80758 

0.161 

0.227 




38 

0.2857 

0,75299 

0.3769 

0,227 




39 

0.2857 

0.75299 

0.3769 

0.161 




40 


1 

1 





41 

5. 

1 . 346 ? 






42 


1 

2 

7 

12 

1 

12 

43 

- 0,777 

1.301 

0 . 

0 . 

0.6 

0 . 



^, 4 **********^************* ************* 

* NASA TN 0-7778 * HIGH WING DELTAF»A4 DEGREES 

444444444444 **** 4 ********************** 

10 11 

xxxxxxxxxxxxxxxxxxxxxxxxx 

CASE NUMBER - 1 
XXXXXXXXXXXXXXXXXXXXXXXXX 


INPUT DATA 


0.00000 

0.00000 

.14142 

1.00000 

5.00000 

-.12700 

2 

1 

44,00000 

44.00000 



.45500 

.36630 

0.00000 

3.00000 

.07462 

.26900 

0.00000 

1.00000 

1.00000 

.30508 

.30508 

-.02208 

3.13200 

44.00000 

0.00000 




4 

3 

4 

5 

5 

4 

2 

3 





3 

2 

2 

0 

0 


-.12700 

.07462 

0.00000 

-.12700 

.07462 

.16100 

-.12700 

.07462 

.16100 

-.12700 

.07462 

.37690 

-.12700 

.07462 

.37690 

12700 

.07462 

.76950 

-.12700 

.07462 

.76950 

-.12700 

.04060 

1.34620 

.07462 

.29073 

0.00000 

.07462 

.25669 

.16100 

.07462 

.25669 

.16100 

.07462 

.21104 

.37690 

.07462 

.21104 

.37690 

.07462 

. 12802 

.76950 

.07462 

.12802 

.76950 

.04060 

.04060 

1.34620 

.29073 

.38100 

0.00000 

.25669 

.34029 

.16100 

.25669 

.34029 

.16100 

.21104 

.28570 

.37690 

.21104 

.28570 

.37690 

.12802 

. 18642 

.76950 

.12802 

.18642 

♦ .76950 

.04060 

.04060 

1. 34620 

4 

7 

3 

2 

2 

4 

-.12700 

.07462 

. 16100 

.16100 



-.12700 

.07462 

.16100 

.22700 



-.12700 

.07462 

.37690 

.22700 



-.12700 

.07462 

.37690 

.16100 

V 


.07462 

.25669 

.16100 

.16100 



.07462 

.25669 

.16100 

.22700 



.07462 

.21104 

.37690 

.22700 



.07462 

.21104 

.37690 

.16100 



.25669 

.34029 

.16100 

.16100 



.25669 

.34029 

.16100 

.22700 



.21104 

.28570 

.37690 

.22700 



.21104 

.28570 

.37690 

. 16100 



.34029 

.80738 

.16100 

. 16100 



.34029 

.80758 

.16100 

.22700 



.23570 

.75299 

.37690 

.22700 



.28570 

.75299 

.37690 

.16100 



1 

5.00000 

1 

1.34620 





1 

2 

7 

12 

1 

12 



.31750 

0.00000 1.00000 

-.02208 


.16100 
.16100 
.16100 
.16100 
.16100 
.16100 
.16100 
,16100 
.16100 
.16100 
.16100 
. 16100 





-.77700 

1 . 30100 ' 

0.00000 

0.00000 

.80000 

0.00000 

HALF SW « . 

45500 E +00 

CREF « . 36630 E +00 

lpanel » jpanel » lwfj « 





91 

88 

291 




VORTEX ELE^'ENT ENDPOINT COORDINATES * 



XX 

X 2 

Y 1 

Y 2 

Z 1 

Z 2 

-. 113^9 

-.11349 

0.00000 

.08050 

.16100 

.16100 

-.02619 

-.02619 

0.00000 

.08050 

" il 6100 

.16100 

.06111 

.06111 

0.00000 

.08050 

.16100 

.16100 

-. 113 A 9 

-.11349 

,08050 

. 16100 

.16100 

.16100 

-.02619 

-.02619 

.08050 

.16100 

,16100 

.16100 

.06111 

.06111 

.06050 

.16100 

.16100 

.16100 

-. 113 < t 9 

-.11349 

.16100 

.22764 

. 16100 

.16100 

-.02619 

■ -.02619 

.16100 

.22764 

.16100 

.16100 

.06111 

.06111 

. 16100 

.22764 

&. 16100 

.16100 

-.11349 

-.11349 

,22764 

.31026 

.16100 

.16100 

-.02619 

-.02619 

.22764 

.31026 

.16100 

.16100 

.06111 

,06111 

.22764 

.31026 

.16100 

.16100 

-.11349 

-.11349 

.31026 

.37690 

.16100 

.16100 

-.02619 

-.02619 

.31026 

.37690 

. 16100 

.16100 

.06111 

.06111 

.31026 

.37690 

.16100 

.16100 

-.11349 

-.11349 

.37690 

.45782 

,16100 

.16100 

-.02619 

-.02619 

.37690 

.45782 

.16100 

.16100 

.06111 

.06111 

. 37690 

.45782 

.16100 

.16100 

-.11349 

-.11349 

.45782 

.57320 

.16100 

.16100 

-.02619 

-.02619 

.45782 

.57320 

.16100 

.16100 

.06111 

.06111 

.45782 

.57320 

.16100 

.16100 

-.11349 

-.11349 

.57320 

.68858 

U 6100 

.16100 

-.02619 

-.02619 

.57320 

.68858 

,16100 

.16100 

.06111 

,06111 

.57320 

.68858 

.16100 

.16100 

-.11349 

-.11349 

.68858 

,76950 

.16100 

.16100 

-.02619 

-.02619 

.68858 

.76950 

.16100 

.16100 

.06111 

.06111 

.63858 

.76950 

.16100 

.16100 

-.11349 

-.11396 

.769 50 

.88836 

.16100 

.16100 

-.02619 

-.02970 

.76950 

.88836 

.16100 

.16100 

.06111 

.05457 

.76950 

.88836 

.16100 

,16100 

-.11396 

-.11463 

.88836 

1.05785 

. 16100 

.16100 

-.02970 

-.03470 

.88336 

1.05785 

.16100 

.16100 

.05457 

.04524 

.88836 

1.05785 

, 16100 

,16100 

-.11463 

-.11530 

1.05785 

1.22734 

.16100 

.16100 

-.03470 

-.03969 

1,05785 

1.22734 

.16100 

.16100 

,04524 

.03592 

1.05785 

1.22734 

.16100 

.16100 

-.11530 

-.11572 

1.22734 

1.33209 

.16100 

. 16.1 00 

-.03969 

-.04278 

1.22734 

1.33209 

.16100 

.16100 

.03592 

.03015 

1.22734 

1.33209 

.16100 

.16100 

.10627 

.10378 

0.00000 

.08050 

.16100 

.16100 



.25908 

.29955 

0.00000 

.08050 

.16100 

.16100 

.10378 

.10128 

.08050 

.16100 

.16100 

,16100 

. 2 - VA 55 

.23003 

.08050 

.16100 

.16100 

.16100 

.10128 

.09922 

.16100 

.22769 

.16100 

.16100 

.23003 

.21800 

.16100 

.22769 

.16100 

.16100 

.09922 

.09666 

.22769 

.31026 

.16100 

.16100 

.21800 

.20309 

.22769 

.31026 

.16100 

.16100 

.09666 

.09960 

.31026 

.37690 

.16100 

.16100 

.20309 

.19106 

.31026 

.37690 

.16100 

.16100 

, 09^60 

.09209 

.37690 

.95782 

. 16100 

.16100 

.19106 

.17696 

.37690 

.95782 

. 16100 

,16100 

.09209 

.08852 

.95782 

.57320 

.16100 

.16100 

.17696 

.15563 

.95782 

. 57320 

. 16100 

.16100 

.08652 

.08995 

.57320 

.68858 

.16100 

.16100 

.15563 

.13980 

.57320 

.68858 

.16100 

.16100 

.08995 

, .08299 

.68858 

.76950 

. 16100 

.16100 

.13980 

.12020 

.68858 

. 76950 

.16100 

.16100 

.08299 

.07382 

.76950 

.88036 

.16100 

.16100 

.12020 

.10379 

.76950 

.83836 

.16100 

.16100 

.07382 

.06152 

.88836 

1.05785 

.16100 

.16100 

.10379 

.08090 

. 88836 

1.05705 

.16100 

.16100 

.06152 

.09922 

1.05785 

1.22739 

.16100 

.16100 

.08090 

.05701 

1.05785 

1.22739 

. 16100 

.16100 

.09922 

.09162 

1. 22739 

1.33209 

.16100 

.16100 

.05701 

.09255 

1.22739 

1.33209 

.16100 

.16100 

.30395 

.26699 

0.00000 

.08050 

.16100 

.16100 

.36778 

.39791 

0.00000 

.08050 

.16100 

.16100 

.28699 

.26893 

.08050 

.16100 

. 16100 

.16100 

.39791 

.32805 

.08050 

.16100 

. 16100 

.16100 

.26693 

.25999 

. 16100 

.22769 

.16100 

.16100 

.32805 

.31160 

.16100 

.22769 

.16100 

.16100 

.25999 

.23697 

.22769 

.31026 

.16100 

.16100 

.31160 

.29121 

. 22769 

.31026 

. 16100 

.16100 

.23697 

.22197 

.31026 

.37690 

.16100 

.16100 

.29121 

.27977 

.31026 

.37690 

.16100 

.16100 

.22197 

.20937 

.37690 

.95782 

. 16100 

.16100 

.27977 

,25979 

.37690 

.95782 

.16100 

.16100 

.20937 

.17927 

.95782 

.57320 

.16100 

.16100 

.25979 

.22632 

.95782 

.57320 

.16100 

.16100 

.17927 

.15917 

.57320 

.68858 

.16100 

.16100 

.22632 

.19789 

.57320 

.68858 

.16100 

.16100 

.15917 

.13657 

.68858 

. 75950 

. 16100 

.16100 

.19789 

.17787 

.68858 

.76950 

.16100 

.16100 

.13657 

.11679 

.76950 

.83836 

. 16100 

.16100 

.17787 

.19958 

.76950 

.88836 

.16100 

.16100 

.11679 

.08859 

.88836 

1.05785 

.16100 

.16100 

.19958 

.10923 

.88836 

1.05785 

.16100 

.16100 

.08859 

.06038 

1.05785 

1.22739 

. 16100 

.16100 

.10923 

.06889 

1.05785 

1.22739 

. 16100 

.16100 



• 06036 

. 0 < t 295 

1.22734 

1.33209 

. 16100 

.16100 

.06889 

.04396 

1.22734 

1.33209 

.16100 

.16100 

• 113 < r 9 

-.11349 

.16100 

.16100 

.16100 

.22700 

.02619 

-.02619 

.16100 

.16100 

.16100 

.22700 

.06111 

.06111 

.16100 

.16100 

.16100 

,22700 

.11349 

-.11349 

.16100 

.22764 

.22700 

.22700 

.02619 

-.02619 

. 16100 

.22764 

.22700 

,22700 

.06111 

.06111 

.16100 

.22704 

.22700 

.22700 

.11349 

-.11349 

.22764 

.31026 

.22700 

.22700 

.02619 

-.02619 

.22764 

.31026 

.22700 

.22700 

.06111 

.06111 

.22764 

.31026 

.22700 

.22700 

.11349 

-.11349 

.31026 

.37690 

.22700 

.22700 

.02619 

-.02619 

.31026 

.37690 

.22700 

.22700 

.06111 

.06111 

.31026 

.37690 

.22700 

,22700 

.11349 

-.11349 

.37690 

.37690 

.22700 

,16100 

.02619 

. -.02619 

.37 690 

.37690 

,22700 

.16100 

.06111 

.06111 

.37690 

.37690 

.22700 

.16100 

.11349 

-.11349 

.16100 

.22764 

.16100 

.16100 

.02619 

-.02619 

.16100 

.22764 

.16100 

.16100 

.06111 

.06111 

.16100 

.22764 

.16100 

.16100 

.11349 

-.11349 

.22764 

,31026 

.16100 

.16100 

.02619 

-.02619 

.22764 

.31026 

.16100 

.16100 

.06111 

.06111 

.22764 

.31026 

.16100 

.16100 

. 113 A 9 

-.11349 

.31026 

.37690 

. 16100 

.16100 

.02619 

-.02619 

.31026 

.37690 

. 16100 

.16100 

.06111 

. 06 X 11 

.31026 

.37690 

. 16100 

.16100 

.10128 

.10128 

- .16100 

.16100 

.16100 

.22700 

.23003 

.23003 

.16100 

.15100 

.16100 

.22700 

.10128 

.09922 

.16100 

.22764 

.22700 

,22700 

.23003 

.21800 

. 16100 

. 22764 

.22700 

.22700 

.09922 

.09666 

) .22764 

.31026 

.22700 

.22700 

.21800 

.20309 

.22764 

,31026 

.22700 

.22700 

.09666 

.09460 

.31026 

.37690 

.22700 

.22700 

.20309 

.19106 

.31026 

.37690 

.22700 

.22700 

.09460 

.09460 

.37690 

.37690 

.22700 

.16100 

.19106 

.19106 

.37690 

,37690 

.22700 

.16100 

.10128 

.09922 

.16100 

.22764 

.16100 

.16100 

.23003 

.21800 

.16100 

.22764 . 

.16100 

.16100 

.09922 

.09666 

.22764 

.31026 

. 16100 

.16100 

.21800 

.20309 

.22764 

. 31026 

. 16100 

.16100 

.09666 

.09460 

.31026 

.37690 

.16100 

.16100 

.20309 

.19106 

. 31026 

. 37690 

.16100 

.16100 

.26893 

.26893 

.16100 

.16100 

.16100 

.22700 

.32805 

.32805 

.16100 

.16100 

.16100 

.22700 

.26893 

.25444 

.16100 

.22764 

.22700 

.22700 

.32805 

.31160 

. 16100 

.22764 

,22700 

.22700 

.25444 

.23647 

.22764 

.31026 

.22700 

.22700 

.31160 

.29121 

.22764 

.31026 

.22700 

,22700 

.23647 

.22197 

.31026 

.37690 

.22700 

.22700 



.29121 

.27677 

.31026 

.37690 

.22700 

.22197 

.22197 

.37690 

.37690 

.22700 

.27677 

.27677 

.37690 

.37690 

.22700 

.26693 

.25666 

.16100 

.22766 

.16100 

.32805 

.31160 

.16100 

.22766 

.16100 

.25666 

.23667 

,22766 

.31026 

.16100 

.31160 

.29121 

.22766 

.31026 . 

.16100 

.23667 

.22197 

. 31026 


- 16100 

,29121 

.27677 

.31026 

.37690 

. 16100 

.35806 

.35808 

,16100 

.16100 

.16100 

.68652 

.68652 

,16100 

.16100 

.16100 

.66335 

.66335 

.16100 

.16100 

.16100 

.78979 

.76979 

.16100 

.16100 

. 16100 

.35808 

.36123 

.16100 

.22766 

.22700 

.68652 

.46767 

. 16100 

.22766 

.22700 

.66335 

,66650 

,16100 

.22764 

-22700 

,78979 ■ 

.77295 

.16100 

.22766 

.22700 

.36123 

.32033 

.22766 

.31026 

.22700 

.66767 

.66678 

.22766 

.31026 

.22700 

.66650 

,62561 

,22766 

.31026 

.22700 

.77295 

.75205 

.22766 

.31026 

.22700 

.32033 

.30369 

.31026 

.37690 

.22700 

.66678 

.62993 

.31026 

.37690 

.22700 

.62561 

.60076 

. 31026 

.37690 

.22700 

.75205 

.73520 

.31026 

,37690 

.22700 

.30369 

.30369 

.37690 

.37690 

.22700 

.62993 

.62993 

.37690 

.37690 

.22700 

.60876 

.60876 

.37690 

.37690 

.22700 

.73520 

.73520 

,37690 

.37690 

.22700 

.35808 

.36123 

. 16100 

.22766 

. 16100 

.68652 

.66 76 7 

.16100 

.22766 

.16100 

.66335 

.66650 

.16100 

.22766 

.16100 

.78979 

,77295 

.16100 

.22766 

. 16100 

.36123 

.32033 

. 22764 

.31026 

.16100 

.66767 

.66676 

.22766 

.31026 

.16100 

.66650 

.62561 

.22766 

.31026 

. 16100 

.77295 

.75205 

. 22766 

.31026 

. 16100 

.32033 

.30369 

.31026 

.37690 

.16100 

.66678 

.62993 

.31026 

.37690 

. 16100 

,62561 

.60876 

.31026 

.37690 

. 16100 

.75205 

.73520 

.31026 

.37690 

. 16100 

CONTROL POINT COORDINATES - 



XCP 

YCP 

ZCP 

XCP 

YCP 

-.07660 

.06025 

.16100 

.02621 

,06025 

.07662 

.06025 

.16100 

-.07660 

.12075 

.02621 

.12075 

. 16100 

.07662 

.12075 

-.07660 

.19262 

. 16100 

.02621 

.19262 


.22700 

.16100 

. 16X00 

.16100 

.16100 

.16100 

.16100 

.16100 

.16100 

.22700 

.22700 

.22700 

.22700 

.22700 

.22700 

.22700 

.22700 

.22700 

.22700 

.22700 

.22700 

.22700 

.22700 

.22700 

.22700 

.16100 

.16100 

.16100 

.16100 

.16100 

.16100 

.16100 

.16100 

.16100 

.16100 

.16100 

.16100 

.16100 

.16100 

.16100 

,16100 


ZCP 

.16100 

.16100 

.16100 

.16100 




. 07^62 

.19262 

.02421 

.26895 

•. 07‘660 

.34528 

.07462 

.34528 

.02421 

.41439 

.07660 

.51254 

.07462 

.51254 

.02421 

.63386 

.07660 

.73201 

,07462 

.73201 

.02178 

.82457 

.07953 

,96874 

.06287 

.96874 

.00752 

1.14696 

,08429 

1.29113 

.04385 

1.29113 

.28222 

.04025 

.26520 

.12075 

.25000 

.19262 

.23387 

,26895 

.211773 

.34526 

.20311 

.41439 

.18236 

.51254 

.15670 

.63366 

. 13 5 95 

.73201 

.11967 

.82457 

.09782 

.96874 

,07080 

1.14696 

.04895 

1.29113 

.37082 

.04025 

.35047 

.12075 

.33230 

.19262 

.31300 

.26695 

.29369 

.34528 

.27622 

.41439 

.25140 

,51254 

.22072 

.63366 

.19590 

.73201 

.17250 

.82457 

.13604 

.96874 

.09098 

1.14696 

.05452 

1.29113 

.02421 

.16100 

-.07660 

.19262 

.07462 

.19262 

,02421 

.26895 

-.07660 

.34528 

.07462 

.34528 

.02421 

,37690 


♦16100 

-.07660 

.16100 

.07462 

.16100 . 

.02421 

.16100 

-.07660 

.16100 

. 07 H 2 

.16100 

.02421 

.16100 

-.07660 

.16100 

* 07*62 

.16100 

,02421 

.16100 

-.07741 

.16100 

.07137 

.16100 

.01540 

.16100 

-.08216 

.16100 

.05235 

.16100 

.00114 

.16100 

.17842 

.16100 

. 16991 - 

.16100 

.16231 

.16100 

.15424 

.16100 

. 1-4617 

.16100 

,13887 

.16100 

.12849 

.16100 

. 1-1566 

. I6I1OO 

.10528 

,16100 

.09552 

. 1-6100 

.08034 

. 16 100 

.06158 

.16100 

.04640 

.16100 

.32652 

.16100 

,30783 

.16100 

. 2 ' U 15 

.16100 

.27343 

. 16 1 'OO 

.25571 

.16100 

.23967 

.16100 

.21688 

. 1-6100 

,18871 

. 161-00 

.16592 

.16100 

.14608 

.16100 

.11693 

.16100 

.08039 

.16100 

.05174 

.16100 

-.07660 

.19400 

.07462 

.22700 

.02421 

.22700 

-.07660 

.22700 

.07462 

.22700 

.02421 

.22700 

-.07660 

.19400 

.07462 


.26895 

.16100 

.26895 

.16100 

.34528 

.16100 

.41439 

.16100 

.41439 

.16100 

.51254 

.16100 

.63386 

.16100 

.63386 

.16100 

.73201 

,16100 

.82 457 

,16100 

.82457 

.16100 

.96874 

.16100 

.14696 

.16100 

.14696 

.16100 

.29113 

.16100 

.04025 

.16100 

.12075 

. 1'6100 

.19262 

,16100 

.26895 

.16100 

.34528 

.16100 

.41439 

. l ' 61 'OO 

.51254 

. 1-6100 

.63386 

.16100 

.73201 

.16100 

.82457 

.16100 

.96874 

. 1-6100 

. 1 - 4-696 

, 16100 - 

. 29 ' 11 ‘ 3 « 

, 1 ' 61‘00 

.04025 

. 16100 ‘ 

.12075 

.16100 

.19262 

.16100 

.26095 

. 161-00 

.34528 

.16100 

.41439 

.16100 

.51254 

.16100 

.63386 

. 16100 ' 

.73201 

.16100 

.82457 

.16100 

.96874 

.16100 

.14696 

.16100 

.29113 

.16100 

.16100 

.19400 

.16100 

,19400 

.19262 

.22700 

*26895 

.22700 

.26895 

,22700 

.34526 

.22700 

.37690 

,19400 

.37690 

.19400 



-.07660 

.19262 

.16100 

.02421 

.19262 

.16100 

.07A62 

.19262 

.16100 

-.07660 

.26895 

.16100 

.02421 

.26895 

.16100 

.07462 

.26895 

.16100 

-.07660 

.34528 

.16100 

.02421 

.34526 

.16100 

.07462 

.34528 

.16100 

.16565 

.16100 

.19400 

.25669 

.16100 

.19400 

.16231 

.19262 

.22700 

.25000 

.19262 

.22700 

,15424 

.26895 

.22700 

.23387 

.26895 

.22700 

.14617 

.34528 

.22700 

.21773 

.34528 

. 22700 

.14283 

.37690 

.19400 

.21104 

.37690 

.19400 

. 16231 

.19262 

.16100 

.25000 

.19262 

.16100 

.15424 

.26895 

.16100 

.23387 

.26895 

.16100 

,14617 

.34528 

.16100 

.21773 

.34528 

.16100 

.29849 

.16100 

.19400 

.34029 

. 16100 

.19400 

.29115 

.19262 

.22700 

.33230 

.19262 

.22700 

.27343 . 

.26895 

.22700 

.31300 

.26895 

. 22700 

.25571 

.34520 

.22700 

.29369 

.34528 

.22700 

.24637 

.37690 

.19400 

.28570 

.37690 

.19400 

.29115 

.19262 

,16100 

.33230 

.19262 

.16100 

.27343 

.26895 

.16100 

.31300 

.26895 

.16100 

.25571 

.34528 

.16100 

.29369 

.34528 

.16100 

.40072 

.16100 

,19400 

.57393 

.16100 

. 19400 

.73915 

.16100 

,19400 

.80758 

.16100 

.19400 

.40073 

.19262 

.22700 

.56594 

.19262 

.22700 

.73115 

.19262 

.22700 

.79959 

.19262 

.22700 

.38143 

.26895 

.22700 

.54664 

.26895 

.22700 

.71185 

.26895 

.22700 

.78029 

.26095 

.22700 

.36213 

.34520 

.22700 

.52734 

.34528 

.22700 

.69255 

.34526 

.22700 

.76098 

.34528 

. 22700 

.35413 

.37690 

.19400 

.51934 

.37690 

.19400 

.68456 

.37690 

.19400 

.75299 

.37690 

.19400 

.40073 

.19262 

.16100 

.56594 

.19262 

.16100 

.73115 

.19262 

.16100 

.79959 

.19262 

.16100 

,38143 

.26895 

.16100 

.54664 

.26895 

.16100 

.71185 

.26895 

.16100 

.78029 

.26895 

■ .16100 

.36713 

.34528 

.16100 

.52734 

.34528 

.16100 

.69255 

.34528 

.16100 

.76098 

.34528 

.16100 





XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
ALPHA » 5.000 DEGREES 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


VORTEX 

XV 

YV 

CP 

CPW 

1 

.02713 

.02990 

6.45517 

5.26487 

2 

.20250 

.02990 

2.58683 

2.03702 

3 

.37787 

.02990 

.21658 

-.01165 

4 

.46607 

.02990 

-1 .04294 

-1.16843 



5 

.76095 

.02990 

- 2.86361 

- 2.70494 

6 

.84808 

.02990 

- 1.76723 

. - 1.66788 

7 

.97394 

.02990 

-.69773 

-.67130 

8 

.02829 

.08970 

- 5.11607 

4.30027 

9 

.21113 

.08970 

2.26819 

1.87297 

10 

.39398 

.08970 

.85439 

- .62040 

11 

.48072 

.08970 

■ .59620 

.29744 

12 

.76296 

.00970 

-.40015 

-.60151 

13 

.84757 

.08970 

-.39319 

-.54201 

14 

.97385 

.08970 

-.17198 

-.31581 

15 

.02941 

.14308 

4.54496 

4.09463 

16 

.21949 

.14308 

2.02398 

1.79930 

17 

.40957 

.14308 

.78674 

.92512 

18 

. 49^90 

.14308 

8.80496 

.95026 

19 

.76491 

.14308 

22.41063 

1.41893 

20 

.84707 

.14308 

25.90014 

1.22816 

21 

.97376 

.14308 

- 3.17332 

.17137 

22 

.03070 

il 9978 

4.46712 

4.11760 

23 

.22912 

.19978 

1.95459 

1.79600 

24 

.42754 

.19978 

.92968 

1,12441 

25 

.51124 

.19978 

7,46008 

1.29494 

26 

.76715 

.19978 

31.59883 

2 V 25879 

27 

.84649 

.19978 

30.23885 

1.90504 

28 

.97366 

.19970 

2.71523 

.49384 

29 

.03210 

.25649 

4,51368 

4.16044 

30 

.23963 

.25649 

1.96195 

1.81741 

31 

.44715 

.25649 

1.07803 

1.24837 

32 

.52907 

.25649 

17,33964 

1.44848 

33 

.76960 

.25649 

25,82381 

2.55575 

34 

.84586 

.25649 

27.03594 

2.17008 

35 

.97355 

.25649 

1.60166 

.62556 

36 

.03350 

.30782 

4.69317 

4.21241 

37 

.25001 

.30732 

2.01848 

1.82692 

38 

.46653 

.30782 

1.45124 

1.33375 

39 

.54669 

.30782 

1.68675 

1.52888 

40 

.77202 

.30782 

3.13786 

2.69362 

41 

.84524 

.30782 

2.69427 

2.30851 

42 

.97345 

.30782 

,39984 

.68278 

43 

.03569 

.38073 

4.65012 

4,19547 

44 

.26641 

.38073 

1.99960 

1.80659 

45 

.49713 

.38073 

1.57716 

1.42301 

46 

.57452 

.38073 

1.74567 

1.58101 

47 

.77585 

.38073 

2.96308 

2,79088 

48 

.84426 

.38073 

2.57902 

2.43865 

49 

.97328 

.38073 

.79890 

.71982 

50 

.03884 

.47085 

4.42174 

4 . tf 3568 

51 

.28992 

.47085 

1.84814 

1.69152 

52 

.54099 

.47085 

1. '56700 

1.45320 

53 

.61440 

.47085 

1.63813 

1.53371 



5^ 

.78132 

.47035 


2.88119 

2.79312 



55 

.84286 

.47085 


2.60810 

2.53644 



56 

.97304 

.47085 


.75662 

.72061 



57 

.04183 

.54376 


4.10537 

3,77962 



58 

.31220 

.54376 


1 .61488 

1.48926 



59 

.58258 

.54376 


1.37908 

1.29320 



60 

.65222 

.54376 


1.35050 

1.28005 



61 

.78652 

.54376 


2.59415 

2.53494 



62 

.84152 

.54376 


2 .47283 

2.42160 



63 

.97281 

.54376 


.65539 

.63140 



6'f 

.04437 

.61252 


3.81114 

3.53254 



65 

.33118 

.61252 


1.37854 

1.27556 



66 

.61798 

.61252 


.92115 

.85488 



67 

.68597 

.61252 


,71192 

.66205 



68 

.80001 

.61252 


♦ 64592 

.60285 



69 

.84946 

.61252 - 


,56585 

.54746 



70 

.97417 

.61252 


.26522 

.24804 



71 

.04835 

,71961 


3.34555 

3.12974 



72 

.36091 

. .71961 


1,08003 

1.00476 



73 

.67346 

,71961 


.59600 

.55151 



74 

.74127 

.71961 


,39475 

.36493 



75 

.83523 

.71961 


.35244 

.32541 



76 

.87597 

.71961 


.31146 

.28741 



77 

.97872 

.71961 


.13549 

.12486 



78 

.05512 

.85199 


2.70611 

2.55803 



79 

.41140 

.85199 


.77597 

.72855 



80 

.76763 

.85199 


.36141 

.33716 



81 

.83520 

,85199 


.18410 

.17155 



82 

.89504 

.85199 


.19106 

.17787 



83 

.92099 

.85199 


.17182 

.15990 



84 

.98644 

,86199 


.07619 

.07083 



85 

.06305 

.95909 


1.78450 

1.69932 



86 

.47059 

,95909 


- .40301 

.38045 



87 

.87814 

,95909 


.14467 

,13550 



88 

.94530 

,95909 


,03553 

,03324 



69 

.96516 

,95909 


.04930 

.04611 



90 

.97378 

.95909 


.04728 

,04422 



91 

.99550 

.95909 


.02319 

.02168 



Y/SP 

CL 

CM 

CT 

COI 

CLW 


COW 

.02990 

.06521 

.97007 

.30614 

-.45001 

-.16356 

.89981 

-.35711 

.08970 

1.10815 

.25947 

.20211 

-.14922 

.77873 

.30056 

-.11757 

.14308 

0.92702 

-4. 13543 

.18140 

2.74971 

1. 54133 

-.14046 

.11327 

.19978 

10.79594 

-5.16229 

.18311 

3.77647 

1.87790 

-.26591 

.22670 

.25649 

10.96797 

-4.35972 

.19303 

3.55123 

2.01911 

-.26817 

.26300 

.30782 

2.34984 

-.28892 

.20222 

.30453 

2-08796 

-.24028 

.27703 

.38073 

2. 32245 

-.18776 

.20793 

.27663 

2.12583 

-.18145 

.28566 

.47085 

2.21343 

-.08825 

.19903 

.26979 

2.07045 

-.09594 

.28755 

.54376 

1.96969 

.00128 

.17938 

.24127 

1.86900 

-.00997 

.25816 




.61252 

1.96798 

.15359 

.15888 


.71961 

1.21696 

..19955 

.12553 


.85199 

1.00680 

.20252 

.08298 


.95909 

.66877 

.15751 

.02960 

THE 

LIFT COEFFICIENT - 3.13778 



TOTAL INDUCED DRAG COEFFICIENT - 

.70097 


THE 

INDUCED DRAG PARAMETER - .07119 ' 


TOTAL PITCHING 

MOMENT COEFFICIENT » 

-.80898 


THE 

COANOA LIFT 

COEFFICIENT, CLR - 

2.36375 


the 

CQANDA DRAG 

COEFFICIENT, CDR ■ 

-1.61185 


THE 

COANDA MOMENT CDEFFICIENT> CMR • 

“1.38906 



THE LIFT COEFFICIENT FOR THE WING ALONE- i.3'(306 
THE INDUCED DRAG COEFFICIENT FOR THE WING ALONE- .08235 
THE PITCHING MOMENT COEFFICIENT FOR THE WING ALONE- .05775 
THE INDUCED DRAG PARAMETER FOR THE WING ALONE- .0A565 


-.0A501 

-.0A210 

-.01632 

.01211 


1.36321 

1.135A5 

.<)A933 

.63512 


♦♦♦FUSELAGE AERODYNAMIC CHARACTERISTICS ARE GIVEN BELOW^^+ 
♦♦♦JET-ON C0NFI6URATI0N+++ 


*19188 

.18225 

.19191 

.19986 


TOTAL PRESSURE LOADING AT EACH X-STATI0N» BASED ON LOCAL RADIUS 


X/L 

RADIUS 

LOADING 

o Q 

-.36969 

.02653 

.21615 

-.33586 

.07697 

.6 785 3 


-.27059 

.11957 

.50266 

-.17830 

.19928 

.97310 

-.06526 

.16099 

-1.99061 


.06082 

.16100 

2.65183 

LT^ 

AD 

Cj 

.19135 

.15959 

-.61928 • 

.31792 

.13993 

-.39553 

t?d 

.93096 

.10702 

-.51522 

.52276 

.07778 

.32398 


.58802 

.09721 

-5.22526 

w S? 

.62181 

.01583 

99.70392 



-.02652 

-.02886 

-.00B91 

.01922 


THE FUSELAGE POTENTIAL LIFT C0£FFICI£M1 


09929 



THE FUSELAGE POTF><TIAL (-QMENT COEFFICIENT ■» 


05072 


♦♦♦JET-OFF CONFIGURATiaN*+* 

TOTAL PRESSURE LOADING AT EACH X-STATION, BASED ON LOCAL RADIUS 


X/L 

RADIUS 

LOADIN'; 

-.36964 

.02653 

.20605 

-.33586 

.07697 

.62975 

-.27059 

.11957 

.45483 

-.17830 

.14928 

.42110 

-.06526 

.16099 

-1.27505 

.06082 

.16100 

2.56220 

.19135 

.15954 

-.58646 

.31742 

.13443 

-.45178 

.43046 

.10702 

-.57759 

.52276 

.07778 

.15781 

.58802 

.04721 

-4.78707 

.62131 

.01583 

39.16723 


THE FUSELAGE POTENTIAL LIFT COEFFICIENT - ,04958 

THE FUSELAGE POTENTIAL MOMENT COEFFICIENT « .06851 

LATERAL-DIRECTIONAL STABILITY CHAR ACTERST ICS WITH JET ON 


♦♦STABILITY DERIVATIVES EVALUATED AT AL=HA - 5.000 DEG. 


AND AT MACH NO.- 0 

.000. 

3ASED ON body 

AXES*** 


CYB » 

-.9966898 

CLB 

n 

-.14 5*4903 

CNB - -.0910089 

g § 

CYP « 

-.0713625 

CL® 

B 

-.4520820 

CNP - -.2864073 


CYR » 

.2470868 

CLR 

vt 

,2089370 

CNR - -.0132019 


STABILITY 

derivatives, based 

ON STABILITY AXES*** 
1 

p 

CYB » 

-.9966898 

CLB 

w 

-•P34323 

CNB - -.■)763124 


CYP - 

-.0498001 

CLP 

X 

-.4568427 

CNP » -.2481083 


. CYR - 

.2533144 

CLR 

m 

.247P365 

CNR,» -.0064413 




lateral-directional stability characterstics with jet off 


♦♦STABILITY DERIVATIVES EVALUATED AT ALPHA • 5.000 DEG. 

AND AT NACH N0.» 0.000#BASED ON BODY AXES*** 


CY8 


-.3^79661 

CLB 

• 

CYP 

IB 

-.0824657 

CLP 

m 

CYR 

• 

.0980542 

CLR 

u 

**ST ABILITY 

DERIVATIVES 

: BASED 

CYB 

■ 

-.3479661 

CLB 

m 

CYP 

II 

-.0739089 

CLP 

m 

CYR 

■ 

.1052507 

CLR 

9 


VI 

to 


-.1597114 

CNB 

m 

-.0846101 

-.4609142 

CNP 

m 

-.1630398 

.1661150 

CNR 

■ 

-.0044682 

ON STABILITY 

AXES*** 


-.1670951 

CNB 

9 

-.0706726 

-.4606458 

CNP 

9 

-.1232073 

.2059474 

CNR 

9 

-.0047366 



Listing of Input Data Cards for Test Case 3 


Card 


1 

fl-tHt TFct CAFF 3» 

OVFR-WTNG 

RLOWTKC” 

**«• 






? 

1 

n 

1 


1 







3 

0.4 1 

.003 

0 ,4R0?6 

0.85914 




0,01386 

3,np396 



4 

1 

1 

0. 









c 

] ?,9797 

?.94 

0, 

0, 


-1 ,?99 


2.032 . 

0.381 

0 

,254 

e 

3.6 

0, 

0, 

0, 


0. 


0. 

0, 



7 

? 


3 


7 


3 





p 

c 











q 

4 

0 

0 


0 


0 




qS 

10 

-] .f?47 

2.47? 

0.741 

-0.2fiPP4 

2,96356 


1.77R 

0.671 


1 1 
1? 

-0 ,?RPP4 

o.^ie'^? 

P.963CF 

3,20436 

1 ,77P 
?.?R6 

0,31657 

2.P55 


3,?0436 

4,214 


?.286 

4,416 

0.671 

0,671 


1 ? 

13 

3 

F 

3 


4 


5 




14 

-l.?9q 

■0.?PPR4 

1.77P 

-1,299 


0.31657 


2.2P6 



1? 

-0.PPPO4 

?.963'=6 

1.77P 

0.31657 


3,20436 


2.2R6 



16 

3.96356 

6.21R06 

1 .77P 

3.?04?6 


6,45676 


2.2R6 



Q 

1 7 

1 

n 









IP 

0. 

4,416 









Se? 

1 9 

1 

2 

7 


1? 


1 

12 




?o 

-7. 

9. 

1 . 

12. 


1 . 


0, 




?1 

-7. 

•6 , ? 

-5.4 

-4.6 


-3. 


-1.4 

0,2 

1 

.8 


3.4 

c 

. 

6,6 

9. 








?? 

0. 

0.194 

0,26] 

0 ,5?P 


0 ,77P 


0,917 

0.993 

1 

0 

?4 

0,944 

0.P47 

0,70R 

0,444 










*** TEST CASE 3» OVER-WING BLOWING 

10 11 

xxxxxxxxxxxxxxxxxxxxxxxxx 

CASE NUNBER • I 

xxxxxxxxxxxxxxxxxxxxxxxxx 

INPUT DATA 

.AOOOO 1.00300 .43026 .85914 2.00000 

1 1 0.00000 

12.97970 2.94000 0.00000 0.00000 -1.29900 

3.60000 0.00000 0.00000 0.00000 0.00000 

THE CQKPUTED JET ENTRAINMENT ARE AS FOLLOWS 

XJET RJET DN/DX 


10*76626 

2.37532 

.03114 

12.01626 

2,37532 - 

.03114 

14.51626 

2,37905 

.03104 

17.01626 

2.41896 

.03000 

19.51626 

2.50324 

.02793 

22.01626 

2.61298 

.02547 

24.51626 

2 .73386 

.02302 

27.01626 

2.85818 

.02077 

29.51626 

2.98203 

,01876 

32.01626 

3.10350 

.01700 

34.51626 

3,22167 

.01545 

37.01626 

3,33617 

,01410 

39,51626 

3.44692 

.01292 

42.01626 

3.55396 

.01188 

44.51626 

3.65744 

.01096 

47,01626 

3.75751 

.01015 

49.51626 

3.85436 

.00943 

52.01626 

3,94818 

.00873 

54,51626 

4.03915 

.00820 

57.01626 

4.12742 

.00767 

59.51626 

4.21317 

.00720 

62.01626 

4.29654 

.00677 

64.51626 

4.37767 

,00638 

67.01626 

4,45669 

.00603 

69.51626 

4.53372 

.00570 

72.01626 

4,60886 

.00541 

74.51626 

4,68222 

.00513 

77,01626 

4.75355 

.00438 

79.61626 

4.82394 

.00465 

82.01626 

4,89216 

.00443 

84.51626 

4.95926 

.00423 

3 

5 

3 


7 


3 



.01386 3.08396 

2.03200 .38100 .25400 

0.00000 0.00000 




2 


4 

0 

0 

0 

0 




-1.52470 

2.47200 

.74100 

-.28884 

2.96356 

1.77800 

.67100 


-.28884 

2.96356 

1,77000 

.31657 

3.20436 

2.28600 

.67100 


.31657 

3.20436 

2.28600 

2.85500 

4.21400 

4.41600 

.67100 


3 

5 

3 

4 

5 




-1.29900 

-.28884 

1.77800 

-1.29900 

.31657 

2.28600 



-.28384 

2.96356 

1.77800 

.31657 

3.20436 

2.28600 



2.96356 

n 

6.21596 

rt 

1. 77800 

3.20436 

6.45676 

2.28600 



X 

O.OODOO 

U 

4.41600 







1 

2 

7 

12 

1 

12 



-r. 00000 

9,00000 

1.00000 

12.00000 

1.00000 

0,00000 



-7,00000 

-6.20000 

-5.40000 

-4.60000 

-3,00000 

-1.40000 

,20000 

1.80000 

3.40000 

5.00000 

6.60000 

9.00000 





0.00000 

. .19400 

,36100 

.52300 

.77600 

.91700 

.99300 

1.00000 

.94400 

.84700 

,70800 

.44400 





HALF SW- . 

12980E+02 

CREF- .29400E+01 




LPANEL>JPANEL>LWFJ- 

48 72 216 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

A RECTANGULAR JET WITH LATERAL EXTENT EQUAL 
TO THE EQUIVALENT JET DIAMETER IS USED FOR 
INTERACTION COMPUTATION 

MOTE. CHECK WHETHER THE WING IS IMMERSED IN THE JET 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

THE EQUIVALENT JET PROPERTIES ARE EVALUATED AT 1.54891 
THE equivalent JET RADIUS IS .49329 

THE VBLOCrrr ratio of the equivalent JET.Vo/VJ^IS .66254 
VORTEX ELEMENT ENDPOINT COORDINATES- 


XI 

X2 

ri 

V2 

21 

22 

-1.37258 

-1.18113 

.74100 

.90541 

.67100 

.67100 

-.29109 

-.13157 

.74100 

.90541 

.67100 

.67100 

1.23839 

1.35274 

.74100 

.90541 

.67100 

.67100 

2.31908 

2.40231 

.7410b 

.90541 

.67100 

.6 7100 

-1.10113 

-.9081A 

.90541 

1.13985 

.67100 

.67100 

-.13157 

.09589 

\90541 

1.13985 

.67100 

,67100 

1.35274 

1.51531 

' .90541 

1.13905 

.67100 

.67100 

2,40231 

2.51984 

.90541 

1,13985 

.67100 

,67100 




-.9081'. -.63515 1 

.09589 .32335 1 

1.51581 1.57888 1 

2.51984 2.63738 1 

-.63515 -.44370 1 

.32335 .48287 1 

1.67888 1,79324 1 

2.63738 2.71981 1 

-.44370 .13071 1 

,48287 .96147 1 

1.79324 2.13635 1 

2.71981 2.96711 ' 1 

.13071 .70512 2 

,96147 1.44008 2 

2.13635 2.47946 2 

2.96711 3.21442 2 

.70512 .94528 2 

1.44008 1.64018 2 

2.47946 2.62292 2 

3.21442 3.31781 2 

.94528 1.32830 2 

1.64018 1.95932 2 

2.62292 2,85170 2 

^ 3.31781 3.46272 2 

1.32830 1,80592 3 

1.95932 2.35727 3 

2.85170 3.13700 3 

3.48272 3.68835 3 

1.80592 2.28354 3 

2.35727 2.75523 3 

3.13700 3.42229 3 

3.68835 3.89398 3 

2.28354 2.66656 3 

2.75523 3.07436 3 

3.42229 3.65108 3 

3.89398 4.05888 3 

2.66656 2.87912 4 

3,07436 3.25147 4 

3.65108 3.77805 4 

4.05888 4.15039 4 

-1.25044 -1.25044 I 

-.93651 -.93651 1 

-.62258 -.62258 1 

-1.25044 -1.21105 1 

-.93651 -.64257 1 

-.62258 -.07408 1 

-1.21105 -1.17167 ? 

-.64257 -.34663 2 

-.07408 .47442 2 


13985 

1.37429 

.67100 

13985 

1.37429 

,67100 

13985 

1.37429 

.67100 

13985 

1.37429 

.67100 

37429 

1.53871 

.67100 

37429 

1.53871 

.67100 

37429 

1.53871 

.67100 

37429 

1.53871 

.67100 

53871 

2.03200 

.67100 

53871 

2.03200 

.67100 

53871 

2.03200 

.67100 

53871 

2.03200 

.67100 

03200 

2.52529 

.67100 

03 200 

2.52529 

.67100 

03200 

2.52529 

.67100 

03200 

2.52529 

.67100 

52529 

2.73154 

.67100 

52529 

2.73154 

.67100 

52529 

2.73154 

.67100 

52529 

2.73154 

.67100 

73154 

3.06047 

.67100 

73154 

3.06047 

.67100 

73154 

3,06047 

.67100 

73154 

3.06047 

.67100 

06047 

3.47065 

.67100 

06047 

3.47065 

.67100 

06047 

3.47065 

.67100 

06047 

3.47065 

.67100 

47065 

3.83082 

.67100 

47065 

3.88082 

.67100 

47065 

3.68062 

.67100 

47065 

3.86082 

.67100 

88082 

4.20975 

.67100 

88082 

4.20975 

.67100 

88082 

4.20975 

. 67100 

88082 

4.20975 

.67100 

20975 

4.39230 

,67100 

20975 

4,39230 

.67100 

20975 

4.39230 

. 67100 

20975 

4.39230 

.67100 

53871 

1,53871 

,67100 

53871 

1.53871 

.67100 

53B71 

1,53871 

.67100 

53871 

2.03200 

1. 44587 

538 71 

2.03200 

1.44587 

53871 

2.03200 

1. 44537 

03200 

2.52529 

1.44587 

03200 

2.52529 

1.4'i587 

03200 

2.52529 

1.44537 


.67100 
.67100 
.67100 
.67100 
.67100 
,67100 
.67100 
.67100 
.67100 
,67100 
.67100 
.67100 
.67100 
.67100 
.67100 
.67100 
.67100 
,67100 
.67100 
.67100 
.67100 
.67100 
.67100 
.67100 
.67100 
.67100 
.67100 
.67100 
.67100 
.67100 
.67100 
.67100 
.67100 
.67100 
.67100 
.67100 
.67100 
.67100 
.67100 
.67100 
1.44587 
1.44587 
1.44587 
1.44587 
1.44587 
1 .44587 
1.44587 
1.44587 
1.44587 



1.17167 

-1.17167 

2.52529 


-.34863 

2.52529 

.<174^2 

.47442 

2.52529 

1.250<t'V 

-1.21105 

1.53871 

-.93651 

-.64257 

1.53871 

-.62258 

-.07408 

1.53871 

•1.21105 

-1.17167 

2.03200 

-.64257 

-.34863 

2.03200 

-.07408 

.47442 

2,03200 

-.44370 

-.44370 

1.53871 

.48287 

.48287 

1.53871 

1.79324 

1.79324 

1.53871 

2.71981 

2.71981 

1.53871 

-.44370 

.13071 

1.53871 

.48267 

.96148 

1.53871 

1.79324 

2,13635 

1, 53871 

2.71981 

2.96711 

1.53871 

. 13071 

.70512 

2.03200 

.96143 

1.44006 

2.03200 

2.13635 

2.47946 

2.03200 

2.96711 

3,21442 

2.03200 

.70512 

.70512 

2.52529 

1.44008 

1.44008 

2. 52529 

2.47946 

2.47946 

2.52529 

3.21442 

3.21442 

2.52529 

-.44370 

.13071 

1.53871 

.48287 

.96148 

1.53871 

1.79324 

2.13635 

1,53871 

2.71981 

2,96711 

1.53871 

.13071 

.70512 

2.03200 

.96148 

1.44008 

2.03200 

2. 13635 

2.47946 

2.03200 

2.96711 

3.21442 

2.03200 

2.92972 

2.92972 

1,538 71 

3.52047 

3.52047 

1.53871 

4.47633 

4.47633 

1.53871 

5.43219 

5.43219 

1.538 71 

6.02294 

6.02294 

1. 53871 

2.92972 

3.16355 

1.53871 

3.52047 

3.75430 

1.53871 

4.47633 

4.71C16 

1.53871 

5.43219 

5.66602 

1.53871 

6.02294 

6.25677 

1.53871 

3.16355 

3.39738 

2.03200 

3.75430 

3.98813 

2. 03200 

4.71016 

4.94399 

2.03200 

5.66602 

5,89985 

2.03200 

6.25677 

6.49060 

2.03200 

3.39738 

3.39738 

2. 52529 


2.52529 

1.44587 

.67100 

2, 52529 

1.44587 

.67100 

2.52529 

1,44587 

.67100 

2.03200 

,67100 

.67100 

2.03200 

.67100 

.67100 

2.03200 

.67100 

.67100 

2.52529 

.67100 

.67100 

2.52529 

.67100 

.67100 

2.52529 

.67100 

.67100 

1.53871 

.67100 

1.44587 

1.53871 

.67100 

1.44587 

1.53871 

.67100 

1.44587 

1.53671 

.67100 

1.44587 

2.03200 

1.44587 

1.44587 

2.03200 

1.44587 

1.44587 

2.03200 . 

1, 44587 

1.44587 

2.03200 

1. 44587 

1.44537 

2.52529 

1.44587 

1.44587 

2.52529 

1.44537 

1.44587 

2.52529 

1,44587 

1.44587 

2.52529 

1,44587 

1.44587 

2.52529 

1. 44587 

.67100 

2.52529 

1.44587 

.67100 

2.52529 

1.44587 

.67100 

2.52529 

1.44587 

.67100 

2.03200 

.67100 

.67100 

2.03200 

.67100 

.67100 

2.03200 

. 67100 

.67100 

2.03200 

.67100 

.67100 

2.52529 

,67100 

.67100 

2.52529 

,67100 

.67100 

2.52529 

.67100 

.67100 

2.52529 

.67100 

.67100 

1 .53871 

.67100 

1.44587 

1.53871 

.67100 

1.44537 

1.53871 

.67100 

1,44587 

1,53871 

.67100 

1,44587 

1.53871 

.67100 

1.44587 

2.03200 

1.44537 

1.44587 

2.03200 

1.44587 

1.44587 

2.03200 

1,44587 

1.44587 

2.03200 

1,44587 

1.44587 

2.03200 

1,44587 

1.44587 

2.52529 

1.44587 

1.44587 

2.52529 

1.44507 

1.44587 

2.52529 

1.44537 

1.44587 

2.52529 

1.44587 

1.44587 

2.52529 

1.44587 

1.44587 

2.52529 

1.44587 

.67100 



3.98813 

3.98813 

2. 52529 

2.52529 

4.9A399 

4.94399 

2.52529 

2.52529 

5.89985 

5.89985 

2.52529 

2.52529 

6.<t9060 

6.49060 

2.52529 

2.52529 

2.92972 

3.16355 

1.53871 

2.03200 

3.520<»7 

3.75430 

1.53871 

2.03200 

47633 

4.71016 

1. 53871 

2.03200 

5.43219 

5.66602 

1.53871 

2.03200 

6.02294 

6.25677 

1.53871 

2.03200 

3.16355 

3.39738 

2.03200 

2.52529 

3.75430 

3.98813 

2.03200 

2.52529 

4.71016 

4.94399 

2.03200 

2.52529 

5.66602 

5.89985 

2.03200 

2.52529 

6.25677 

6.49060 

2.03200 

2.52529 

CONTROL point COORDINATES- 


XCP 

TCP 

ZCP 

XCP 

-.85662 

.81717 

.67100 

.53709 

1.93081 

.81717 

.67100 

2.50811 

-.63991 

1.01660 

.67100 

. 70320 

2.04631 

1.01660 

.67100 

2.60264 

-.37205 

1.26310 

.67100 

.90851 

2.18906 

1.26310 

.67100 

2.71949 

-.15534 

1.46253 

.67100 

1.07461 

2.30456 

1.46253 

.67100 

2.81402 

.19545 

1.78535 

.67100 

1.34348 

2.49151 

1.78535 

.67100 

2.96704 

.73149 

2.27865 

.67100 

1.75434 

2.77719 

2.27865 

.67100 

3.20087 

1.10124 

2.61891 

.67100 

2.03774 

2.97425 

2.61891 

.67100 

3. 36217 

1.38628 

2.88123 

.67100 

2.25622 

3.12616 

2.88123 

.67100 

3.48651 

1.79818 

3.26029 

.67100 

2.57193 

3.34568 

3.26029 

. 67100 

3.66618 

2.25535 

3.68101 

.67100 

2.92234 

3.58933 

3..68101 

.67100 

3.86561 

2.66725 

4.06007 

.67100 

3.23805 

3.80885 

4.06007 

.67100 

4.04528 

2.95229 

4.32238 

.67100 

3.45653 

3.96076 

4.32238 

.67100 

4.16962 

-1.11775 

1.53871 

1.05843 

-.75526 

-.57402 

1.53871 

1.05843 

-1.04427 

-.53481 

1.78535 

1.44587 

-.28008 

-.89730 

2.27865 

1.44587 

-.09339 

.30781 

2.27865 

1.44537 

-.82381 

. 12656 

2.52529 

1.05843 

.60175 

-1.04427 

1.78535 

.67100 

-.53481 


1.44587 

.67100 

1.44587 

.67100 

1.44587 

.67100 

1.44587 

.67100 

.67100 

.67100 

.67100 

.67100 

.67100 

.67100 

.67100 

.67100 

.67100 

.67100 

.67100 

.67100 

.67100 

.67100 

.67100 

.67100 

.67100 

.67100 

.67100 

.67100 


YCP 

ZCP 


.81717 

.67100 


.81717 

.67100 


1.01660 

.67100 


1.01660 

.67100 


1.26310 

.67100 


1.26310 

.67100 


1.46253 

.67100 


1.46253 

.67100 


1.78535 

.67100 


1.78535 

.67100 


2.27865 

.67100 


2.27865 

.67100 


2.61691 

.67100 


2.61891 

.67100 


2.88123 

.67100 


2.88123 

.67100 


3.26029 

.67100 


3.26029 

.67100 


3.68101 

.67100 

oQ 

3.68101 

.67100 


4.06007 

.67100 


4.06007 

.67100 


4.32238 

.67100 


4.;32238 

.67100 


l.|53871 

1.05843 

A 

1.178535 

1.44587 


1.78535 

1.44587 


2.27865 

1.44587 


2. 52529 

1.05843 


2.52529 

1.05843 


1.78535 

.67100 




-.E8008 

1.78535 

■ .67100 

-.89730 

2.27865 

.67100 


-.09389 

2.27865 

.67100 

,30781 

2.27865 

.67100 


-.07256 

1.53871 

1.05843 

1.13806 

1.53071 

1.05843 


Z. 34868 

1.53871 

1.05843 

2.85013 

1.53871 

1.05843 


.19545 

1.78535 

1.44587 

1,34348 

1.78535 

1.44587 


2.49152 

1,78535 

1.44537 

2.96705 

1. 78535 

1.44507 


.73149 

2.27865 

1.44537 

1.75434 

2.27865 

1 .44587 


2.77719 

2.27865 

1.445B7 

3.20087 

2.27865 

1.44507 


.99950 

2.52529 

1.05843 

1.95977 

2.52529 

1.05843 


2.92003 

2.52529 

1.05843 

3.31779 

2.52529 

1.05843 


.19545 

1.78535 

.67100 

1.34348 

1,78535 

.67100 


2.49152 

1.78535 

.67100 

2?-96705 

1.78535 

.67100 


.73149 

2.27865 

.67100 

1. 75434 

2.27865 

.67100 


2.77719 

2.27865 

. 67100 

3.20087 

2.27665 

.67100 


3.16071 

1.53671 

1.05843 

3.97361 

1.53671 

1.05843 


4.97885 

1.53871 

1.05843 

6.79195 

1.53871 

1.05643 


6.10253 

1.53871 

1,05843 

3.27762 

1.78535 

1.44587 


4,09072 

1.78535 

1.44587 

5.09577 

1,78535 

1.44587 


5.90887 

1. 78535 

1.44587 

6.21945 

1. 76535 

1.44507 


3.51145 

2.27865 

1. 445B7 

4.32455 

2.27865 

1.44587 


5.32960 

2.27865 

1.44587 

6.14270 

2.27065 

1.44587 


6.45327 

2.27865 

1.44587 

3.62837 

2.52529 

1.05843 


4.44147 

2.52629 

1.05843 

5.44651 

2,52529 

1.0SB43 


6.25961 

2.52529 

1.05843 

6.57019 

2.52529 

1.05843 


3.27762 

1.76535 

.67100 

4.09072 

1.78635 

.67100 


5.09577 

1.78535 

,67100 

5.90887 

1.78635 

.67100 


6.21945 

1.76535 

.67100 

3.51145 

2.27865 

.67100 


4.32455 

2.27865 

.67100 

5 .32960 

2.27865 

.67100 


6.14270 

2.27865 

.67100 

6,45327 

2.27865 

.67100 

§1 



xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

st 



ALPHA 

• 2. 

OOO DEGREE 

:S 




xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 








C ^ 

VORTEX 


XV 


YV 

CP 


1 


.03806 


.18505 

.39232 

a^73i 

2 


.30866 


.18505 

.10702 

^(^49 

3 


.69134 


.18505 

.02094 

.01441 

4 


.96194 


.18505 

-.00583 

-.00917 

5 


.03806 


,23021 

.40380 

,36237 

6 


.30866 


.23021 

.11075 

.08971 

7 


.69134 


.23021 

.02449 

.01786 

8 


.96194 


.23021 

.00044 

-.00464 

9 


.03806 


.28603 

.43208 

.37121 

10 


,30866 


.28603 

.,11031 

.09250 

11 


.69134 


.28603 

,02999 

.02307 

12 


.96194 


.28603 

.01210 

.00075 



13 

.03806 

.33119 


.45889 

.37454 



1<> 

.30866 

,33119 


.10907 

.09526 



- 15 

.69134 

. 33119 


.03549 

.02769 



16 

.96194 

.33119 


.03418 

.00424 



17 

.03806 

.40429 


.50478 

.38462 



18 

.30866 

.40429 


.13474 

.10114 



19 

.69134 

.40429 


.05030 

.03352 



20 

.96194 

.40429 


.12117 

.00777 



21 

.03806 

.51600 


,54643 

.39921 



22 

.30866 

.51600 


.14973 

.11052 



23 

,69134 

.51600 


.06907 

.04075 



2<t 

.96194 

.51600 


.13808 

.01061 



25 

.03806 

,59305 


,50106 

.41432 



26 

.30866 

.59305 


.14156 

.11578 



27 

.69134 

.59305 


.07043 

.04378 



26 

.96194 

.59305 


.05318 

.01148 



29 

.03806 

.65245 


.49667 

.42164 



30 

.30866 

.65245 


,14465 

.11029 



31 

.69134 

.65245 • 


.06809 

.04500 



32 

.96194 

.65245 


.02611 

.01164 



33 

.03806 

.73829 


.50244 

.43349 



3i> 

.30866 

.73829 


.14535 

.12074 



35 

.69134 

.73829 


.06019 

.04397 



36 

’ .96194 

.73829 


.01639 

.01080 



37 

.03806 

.83356 


,50762 

.44337 



38 

.30866 

.83356 


.13710 

.11625 



39 

.69134 

.83356 


.04659 

.03646 



40 

.96194 

.83356 


.01105 

.00023 



41 

.03806 

.91940 


,49000 

.43229 



42 

.30866 

.91940 


.10247 

.08811 



43 

.69134 

.91940 


.02685 

.02145 



44 

.96194 

.91940 


.00609 

.00467 



45 

.03806 

.97880 


.36375 

.32314 



46 

.30866 

.97880 


.03673 

.03138 



47 

.69134 

.97880 


.01096 

.00871 



48 

.96194 

.97880 


.00276 

.00210 



Y/SP 

CL 

CM 

CT 

CDI 

CLW 

CHW 

COW 

.18505 

.10449 

,02596 

.00148 

.00217 

.08856 

.02453 

.00176 

.23021 

.10988 

.01764 

.00383 

.00001 

,09285 

.01716 

-.00005 

.28603 

.11773 

.00643 

.00430 

-.00019 

.09788 

.00739 

.00004 

.33119 

.12668 

-.00532 

.00603 

-.00161 

.10158 

-.00114 

.00011 

.40429 

.17320 

-.03712 

.00243 

.00362 

.10768 

-.01518 

.00025 

.51600 

. 18223 

-.07530 

.00249 

.00387 

.11653 

-.03816 

.00032 

.59305 

. 16032 

-.07853 

.00613 

-.00053 

.12195 

-.05474 

.00020 

.65245 

.15585 

-.08768 

,00569 

-.00025 

.'12443 

-.06731 

.00018 

.73829 

. 15265 

-.10386 

.00580 

-.00047 

.12660 

-.08482 

.00004 

.83356 

.14471 

-.11750 

.00596 

-.00091 

.12319 

-.09953 

.00453 

.91940 

.12160 

-.11239 

.00573 

-.00149 

.10534 

-.09720 

.00403 



, 97880 ,07248 -.J7203 

THE LIET COEFFICIENT •> .10438 


.00411 -.00158 


.06338 -.06295 


TOTAL INDUCED DRAG COEFFICIENT • ,00060 

THE INDUCED DRAG PARAMETER • .06465 


TOTAL PITCHING MOMENT COEFFICIENT « -.03792 

THE LIFT COEFFICIENT WITH JET ENTRAINIENT ALONF - .03615 

THE induced DRAG COEFFICIENT WITH JPT ENTRAINMENT ALONE - -.00006 


THE PITCHING MOMENT COEFFICIENT WITH JET ENTRAINMENT ALONE ■ 
THE LIFT COEFFICIENT FOR THE WING ALONE- .07892 
THE INDUCED DRAG COEFFICIENT FOR THE WING ALONE- .00065 
THE PITCHING moment COEFFICIENT FOR THE WING ALONE- -.02624 
THE INDUCED DRAG PARAMETER FOR THE WING ALONE- .10407 

♦♦♦FUSELAGE AERODYNAMIC CHARACTERISTICS ARE GIVEN B6LQW^++ 
♦♦♦JET-ON CnNFIGURATION^^+ 


-.02854 


O 

8 .® 


TOTAL PRESSURE LOADING 

AT EACH X-STATION> BASED ON LOCAL RADIUS 


X/L 

RADIUS 

LOADING 


-.43322 

.01871 

.05259 


-.39944 

,15172 

.08151 

§ 5 ^ 

-.33418 

,37217 

.08391 

-.24188 

.6 5,812 

.04907 


-.12884 

.86934 

,01089 


-.00276 

.98653 

.0152 1 


. 12776 

.99496 

.03406 


.25384 

.90863 

.00020 


. 3668 8 

.77627 

-.01669 


.45918 

.63125 

.01137 


.52444 

.51508 

-.02437 


,55822 

.45203 

-.09939 


THE FUSELAGE 

POTEhTI AL 

LIFT CCSFFICIENT - .00300 



.00221 


THE FUSELAGE RDTENTIAL MOF EM CJEFFICIEN'T 


00829 



♦♦♦JET-OFF CONFIGURATION^+^ 


TOTAL PRESSURE LOADING AT EACH X-STATION> BASED ON LOCAL RADIUS 


X/L 

RADIUS 

LOADING 

-.93322 

.01871 

.06775 

-.39949 

.15172 

.08911 

-.33918 

.37217 

.08951 

-.29188 

.65812 

.06302 

-.12889 

.86939 

.01979 

-.00276 

.98553 

.01195 

.12776 

.99996 

.02999 

.25389 

.90868 

-.00118 

.36688 

.77627 

-.01815 

.95918 

.63125 

-.02539 

.52999 

.51508 

-.02813 

.55822 

.95208 

-.09919 


THE fuselage POTENTIAL LIFT COEFFICIENT » .00699 

THE FUSELAGE POTENTIAL NOHENT COEFFICIENT » .01236 


LATERAL-OIRECTIQNaL stability CHARACTERSTICS WITH JET ON 
♦♦stability derivatives EVALUATED AT ALPHA - 2.000 DEG. 

AND AT NACH NO.- .AOO»BAS£D ON BODY AXES^+» 


CYB 

m 

-.1352017 

CLB 

m 

-.0733607 

CN3 

a 

1799832 

CYP 

■ 

.1902299 

CL'* 

a 

-.2998366 

CNP 

a 

-.0601710 

CYR 

It 

.1662392 

CLR 

a 

.0556727 

CNR 

a 

-.0501926 

♦♦stability 

DERIVATIVES 

BASED 

ON STABILITY 

AXES*** 


CYB 

■ 

-.1352017 

CLB 

s 

-.0899513 

cnb 

a 

-.1717979 

CYP 

m 

.1960327 

CL^ 

a 

-.2500936 

CNtj> 

a 

-.0532009 

GYR 

m 

. 1613992 

CLR 

a 

.0626939 

CNR 

a 

-.0500356 

LATERAL- 

■directional stalili 

1 Y 

C“ARAC TFRS [ I 

CL W 

ITH 

JET OFF 



♦♦STABILITY DERIVATIVES EVALUATED AT ALPHA 


2.000 DEG 


AND AT NACH NO.» 

AOO. 

BASED ON BODY 

AXES*** 


CYB - 

-.13AS120 

CLR 

m 

-.0769513 

CNB > 

.1746655 

CYP - 

.0862A69 

CLO 

n 

-.2A10532 

CNP • 

.0355239 

CYR - 

.1676378 

CLR 

m 

.0575684 

CNR ■ 

,0514798 

'STABILITY 

DERIVATIVES 

; BASED 

ON STABILITY AXES*** 


CYB « 

-.13A8120 

CLB 

m 

-.0830483 

CNB - 

. 1719794 

CYP - 

.0970986 

CLP 

m 

-.2404582 

CNP » 

.0269065 

CYR - 

,lb‘ibZlZ 

CLR 

m 

.0591857 

CNR » 

.0520748 
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The follomng is a listing of the separate cards which 

constitute the computer program. 
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ORIGINAL PAGE IS 
oe EOOR QUALITY) 


overlay (WN6vJET,0»0> lds 

PROGRAM WN6JET (IN'PUTtOUTPUT»TAPE5=INPUT»TAPE6sCUTPUT»TAPEl. TAPES, TLDS 
1 APES, TAPE4, TAPE?, TAPES, TAPE9) LDS 

AERODYNAMICS OF WING-JET INTERACTION LOS 

BY C, EDWARD LAN PF THE UNIVERSITY OF KANSAS LDS 

LOS 

THIS PROGRAM IS APPLICABLE TO BOTH UPPEP-SURFACE-ELOWING AND OVER- LOS 
WING BLOWING CONFIGURATIONS, LOS 

LDS 

NOTF, ROOT AND TIP CAMBER FUNCTIONS MAY BF DEFINED AS FUNCTION LDS 

SUBPROGRAMS ZCR(X) AND ZCT(X5, RESPECTIVELY. LDS 

THE ARRAY DIMENSIONS OF THIS PROGRAM RESTRICT THE NUMBER OF WING LDS 
VORTICES TO PE 100 MAXIMUM AND THE TOTAL WING AND JET VORTICES TO BFLDS 
200 maximum, also, CHECK THE ARRAY SIZE OF GAMMA IN SUERCUTINE LDS 

"SCLUTN" BEFORE USING THE PROGRAM. LDS 

LDS 

DIMENSION TITLE(13> LDS 

COMMON /SKODE/ KCODF LDS 

COMMON /SCHEME/ C (2 ) , X (1 0 , 41 ) , Y { 1 0 ,4 1 ) ,SL0PE (15) ,XL(2,15) ,XTT(41) ,LDS 
1XLL(41) LDS 

COMMON /GEOM/ HALFSW,XCP (200) ,YCP (200) ,7CP(?00) ,XLE (50) ,YLE(50) ,XTLOS 
1E(5C) ,PSI (20) ,CH(q5) ,XV (200) ,YV (100) ,SN (8,P) ,XN (200,2) ,YN (200,2) ,ZLDS 
2N (200,2) , WIDTH (6) ,YCON (2e) .SWEEP (5 0) .HALFB.SJ (21 ,8) ,EX (95,2) ,TX (95LDS 
3,2) ,SC (160,5 ) ,SI (160,5) ,LC (3) LDS 

COMMON /AEPO/ AM 1 , AM2 , B 1 , PP ,CL (30 ) , CT ( 30 ) ,CD ( 30) ,G AM (2 , 1 30 ) LDS 

COMMON /SOME/ NC ,NWING ,L AT ,NAL ,LWF ,L WF J, CHOPDT ( 3 ) , SNG ( 5 ) , YG (5) .YCNLOS 
1 (6) ,WKN,RDX,MDG,ND6 LOS 

COMMON /CONST/ NCS,NCW,Mi (fl) ,NSJ,NCJ(5) .LAST, MJKl (3,5) ,MJWP (3,5) ,JLDS 
1PANEL,MJJ(5) ,NW(3) ,NNJ,NJP LOS 

COMMON /PARAM/ ALPT ,ALPC , ALPS , CDF , SCF ,TH ,TDF LDS 

COMMON /JET/ PKl.XC.XJT (31 ) »A (31 ) ,P (31 ) LDS 

COMMON /ADD/ CP (130) ,CM (30) ,BRFAK (P) ,SWP (P,15) ,C-AL (30 ) , IS YM , VMU , VULDS 
1,TEMP,FCP,CAMLER,CAMLET.CAMTER,CAMtET,XJ,YJ,ZJ,RJ,ALP,CPEF,TWISTF LOS 
COMMON /COST/ LTCTAL»LPAN1,NJW(5) ,LPANEL,IENTN,LPAN2,EXIT ,ptial,twlds 
1IST,DF(5) ,NFP LDS 

COMMON /CAMP/ ICAM.IH.XT (2,11) ,7C (2,11) ,AAM (2, 10 ) ,BBM (2,10) ,CCM (2.LOS 
110) ,DDM (2,10) LDS 

lARY - USED IN SYSTEMC LDS 

DIMENSION IAPY(6) LDS 

DATA IARY/4«(-0) , (0) , (-0)/ LDS 

SYSTEMC SUPPRESSES THE PRINTING CF NON-FATAL ERROR MESSAGES IN LDS 

THE evaluation OF (EXP(A)), WHFN (A) IS LESS THAN (-675.84) ON LDS 

. CYPER-1T5, THIS CALL MIGHT NOT EE NEEDED FOR OTHER COMPUTING LOS 

SYSTEMS. LDS 

CALL SYSTEMC (IIS.IARY) LDS 

PI=3. 14159265 LDS 

READ (5,70) (TITLE(I),I=1,13) LDS 

WRITF (6,80) lds 

WRITE (6,70) (TITLE (I) ,1=1 ,13) LDS 



'f'o.C' <*j OD’^n ro ^ r>or>r>ooon 
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WRITF (6,80) LDS 

NCCN=1 LOS 

LDS 

^t««^U^/pER CF CASES TO BE PUN't CECVFTPY CODE ( = 1 IF GEOMETRY VARIES, LDS 
IN THIS CASE, alpha PAY ALSO PE DIFFERENT. =0 FCR THE SAME GEOME- LOS 
TRY RUT DIFFERENT ALPHA"S> * AND SYMMETRY CODE (=0 FOR A CENTERED LDS 
JET, AND=1 OTHERWISE) LDS 

«*«LATERAL mode SELECTOR (=0 FOP SYMMETRICAL MODE CF MOTION, AND =1 LDS 
IF LATFRAL-OIPECTIONAL DEPIVATIVFS are to PE COMPUTED) LOS 

LOS 


READ (5,60) ICASE,N6,ISYM,L AT 
WRITE (F,60) ICA5E,NG,I5YW,LAT 

continue 

write (F,90) 
write (6,100) NCCN 
WRITE (6,90) 

(FHWNGJET,! ,0) 


(6HWNGJET,?,0) 

(FMWNGJET,3,0) 

(eHWNGJET,4,0> 

(6HWNGJET,5,0) 


LDS 
LOS 
LDS 
LDS 
LDS 
LDS 
LDS 
LDS 
LDS 
LOS 
LDS 
LDS 
LDS 
LOS 
LDS 
LDS 
LDS 

«ff«ADClTIONAL ANGLES OF ATTACK IN DFGc, TO PE COMPUTED, TO BE READ TNLDS 
REMIND THE GEOMETRY DATA DEFINED IN SUPROUTINE "GEOMTY" *«« LDS 

LOS 

read (5,50) ALP LOS 
ALP=ALP«PI/180. LDS 
ALPS=SIN { ALP) UDS 
ALPC=C0S { ALP) LDS 
ALPT=ALPS/ALFC LDS 
DO 30 1 = 1, NCS LDS 
XLL (I)=ALP + {TWSTR+7W1ST»YI E { I ) /HALFR ) «pI/1 PO , LDS 


CALL overlay 

J1=LWF+1 

CALL overlay 
CALL overlay 
CONTINUF 
CALL overlay 
call overlay 

NCCN=NCCN+1 
IF (NCCN.GT.ICASF) 
IF (NP.FO.n 60 TC 


6C 

10 


TO 40 


T=XLL(I) 

XTT (DOSIN' (T) /CCS (T) 
WRITE (6,90) 

WRITE (6,100) NCOS 
WRITE (6,90) 

GO TO EO 
CONTINUE 
STOP 


0 
60 
70 


FORMAT 

format 

format 


(8F10.5) 

(7 (6X,I4) > 
(13A6) 


LDS 

LDS 

LDS 

LDS 

LDS 

LDS 

LDS 

LOS 

LDS 

LDS 

LDS 

LDS 


500 

510 

520 

S30 

540 

550 

560 

570 

580 

590 

600 

610 

6?0 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 

810 

820 

030 

840 

850 

860 

870 

880 

890 

900 

910 

920 

930 

940 

950 

960 

970 

980 



f*>or» Mi-i o o o 


FOP NAT ( 4 ««««««««««««««««'»««««««««««««) 

FOPNAT (1HO,20X.25HXXXXXXXXXXXXXXXXXXXXXXXXX) 
n FORNAT (1H0»25X.13RCASF NU^*EFR =,12) 

END 

FUNCTION ZCR (X) 

CONNON /CAMB/ ICAV » IN » XT ( ? » 1 1 ) » ZC (2 , 1 1 ) » A AH <2 1 1 0 ) ,BBM (2 , 1 0 ) 
110) ,DOH(2.10) 

IF (ICAH.EQ.l) CO TO 10 

CAHPER function for the ROOT SECTION 

IF (X.LT.0.202S) 7CR=2 ( 3 ,«X«X-1 . 21S*X*0 . 1 14715 ) 

IF (X,6E, 0,2025) ZCR=->0,0220P 
GO TO 20 
ZCRsZCAH (1,X) 

RETURN 

ENC 

FUNCTION ZCT (X) 

COHNON /CAHR/ ICAN , IN » XT C? * 1 1 ) * 7C (?, 1 1 ) , AAH (2» 1 0 ) ,BBH (2 » 1 0 ) . 
110) ♦DDH(2,10) 

IF (ICAH.EO.l) 60 TC 10 

««* CAVBFR FUNCTION FOP THE TIP FFCTION ««« 


ZCT=7CR(X) 

GO TO 20 
ZCT = 7CAH f2,X) 

RETURN 

ENC 

FUNCTION ZCAF (I»x) 

COHHON /CANS/ ICAH , IH » XT (2 » 1 1 ) ,7C [2 . 1 1 ) « AAH f 2 , 1 0 ) ,BPN { 2 » 1 0 ) 
llO) ,PDH(2,10) 

K=1 

IF (X,6E,XT(I,K) .AND.X,LT,XT(I,K+1)) GO TO 20 
K=K+1 

IF (K.GF.IM) go TC 30 
GO TO 10 
SPaX-XT{I»K) 

7CAHs3,«AAH ( I ,K ) »SH*«?*2 ,«PPH ( I «K ) «SH+CCM ( I ,K ) 

60 TO 50 

IF (X.LT.XTdil) ) GO TC 40 


K=IH-1 ZCH 130 

GO TO 20 2CV 140 

AO K=1 ZCH 150 

GO TO 20 7CH 160 

50 PFTURN ZCH 170 

ENC ZCH 180- 

FUNCTION FUR (X) FUR 10 


COHHON /FUSPAC/ IFR » IFN, XFF ( 21 ) ,PFF {21 ) , AAF (20 ) > EBF (20 ) »CCF (20 ) .PCFUR 20 



o r> r% r' 


IP (20) 

IF riFR.NF.O) Gn TC 30 


C 

C « 
c 

10 

20 

30 

40 

50 

PO 

70 

PO 


10 

20 

30 


DFFI^E THE FU5EL4GE R4DIU<= 45 A FU^CTION OF X » 

IF (X.LT. (-0,127)) GO TC 10 
IF (X.GT.0.3Pn GO TO 20 
FL'F = 0. 161 
GO TO eo 

FUR = 0.161»SQRT n ( 1 (X + 0 . 777 ) /O ,6F 1 »*2 ) 

GO TO PO 

FUR=0.161»5QPT{1,-] , OGGOffE* (X-0 ,38 1 ) ) 

GO TO eo 
continue 

Ksl 

IF (X,6E.XFF(K) ,ANC.X,LT,XFF (K+in GO TO 50 
K=K*1 

IF (K.GF.IFN) GO TC 60 
60 TO 40 
cu-y_xFF (K) 

FUR = A4F (K)»SN»«?+FFF (K ) «cw««?*cCF (K)PSN*nDF (K) 

GO TO eo 

IF (X,LT,XFF (1) ) GC TO 70 

K=IFN-1 

60 TO 50 

K=1 

GO TO EO 

RETURN 

F.NC 

FUNCTION SLOP (X) 

CONNON XFUSRAC/ IFP t IFN , XFF { 21 ) , PFF (? 1 ) ,4 AF (20 ) »SBF (20 ) *CLF 
1F(20) 

IF (IFR.NF.O) GO TO 30 

» DEFINE THE DERIVATIVE OF FUSELAGE RADIUS WITH DIMENSIONAL X 
HULTTPLIFO PY PADH'St OR, =P(OR/'CX> . * 

IF (X.LT, (-0,127) ) GC TO 10 
IF (X,GT.0,3fll> GO TO 20 
SLCP=0, 

GO TO eo 

SLCP=0,0399«(1,- (X ♦0.777 ) /0.65) 

IF CARS (X+0. 777) ,LE. 0,001) SLCP=0. 

GO TO PC 
SLCF=-0.0140P7 
GO TO 80 
CONTINUE 
K-1 

IF (X,6F.XFF(K) .AND, X.LT, XFF(K+1) ) GO TO 50 


FUR 

30 

FUR 

40 

FUR 

50 

FUR 

60 

FUR 

70 

FUR 

80 

FUR 

90 

FUR 

100 

FUR 

110 

FUR 

120 

FUR 

130 

FUR 

140 

FUR 

150 

FUR 

160 

FUR 

170 

'FUR 

180 

FUR 

190 

FUP 

200 

FUR 

210 

FUR 

220 

FUR 

230 

FUR 

240 

FUR 

250 

FUR 

260 

FUR 

270 

FUP 

280 

FUR 

290 

FUP 

300 

FUR 

310- 

SLP 

10 

DDSLP 

20 

SLP 

30 

SLP 

4 0- 

SLP 

50 

SLP 

60 

SLP 

70 

SLP 

eo 

SLP 

90 

SLP 

lOO 

SLP 

no 

SLp 

120 

SLP 

130 

SLP 

,140 

SLP 

150 

SLP 

160 

SLP 

170 

SLP 

100 

SLP 

190 

SLP 

200 


40 




K=K*1 

SLP 

aio 


IF (K.GF.IFN) GO TO 60 

SLP 

220 


GO TO 40 

SLP 

230 

so 

SM=X-XFF rK) 

SLP 

240 


SL0F=3.*flAF (K)«$K'«*2 + 2,«RRF <K)«SF*CCF (K) 

SLP 

250 


SLCP=SL0P«FUR(X) 

SLP 

260 


GO TO eo 

SLP 

270 

60 

IF (X.LT.XFFdn GO TO 70 

SLP 

280 


K=1FN-1 

SLP 

290 


GO TO 50 

SLP 

300 

70 

K=1 

SLP 

310 


GO TO SO 

SLP 

320 

eo 

rftlrn 

SLP 

330 


END 

SLP 

340 


SUPPOUTINE VMSEON (NCI tK , A A , A ,G A ) 

VSN 

10 

c 

TO SOLVE THE SI^'ULTANEOU*? EOLATIONS PY PURCELL"? VFCTOR HETHOD 

VSN 

20 


DIf'FNSiCN AA(1), CA(1), A(l) 

VSN 

30 


NC=K*NC1 

VSN 

40 


SUF1=0. 

VSN 

50 


K1=K-1 

VSN 

60 


JJ=1 

VSN 

70 


DO 10 J=1»K1 

VSN 

80 


SUHlaSUHl+AA (0)«A { JJ) 

VSN 

90 

10 

JJ=JJ+NCi+l 

VSN 

100 


SUH1=SUM1*AA(K) 

VSN 

no 


00 30 I=1»NC1 

VSN 

120 


SUHc=0. 

VSN 

130 


JJ=I+1 

VSN 

140 


DO cO J=1,K1 . 

VSN 

ISO 


SUF?=SUH3+AA (J)*A(JJ) 

VSN 

160 

?0 

JJ=JJ+NC1+1 

VSN 

170 


KK=K+I 

VSN 

180 


SUH?=$L|H?*AA(KK) 

VSN 

190 

•’O 

CA m=-SUM2/SUMl 

VSN 

200 


H=1 

VSN 

210 


L = 0 

VSN 

220 


KNCs(K-l)*NCl 

VSN 

230 


no 60 IsltNC 

VSN 

240 


IF (I.GT.KNC) go to 50 

VSN 

250 


MM= (M-1)«NC1*1 

VSN 

260 


IF (I.FQ.HH) 60 TC 70 

VSN 

270 

40 

KK=:KK + 1 

VSN 

280 


IL = I+L 

VSN 

290 


A(I)=CA (KK)*BASF*A (ID 

VSN 

300 


60 TO 60 

VSN 

310 

so 

II=T-KNC 

VSN 

320 


A(I)=CA (in 

VSN 

330 

60 

CONTINUE 

VSN 

340 


GO TO PO 

VSN 

350 
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70 


VSN 

360 


BASE*A(II} 

VSN 

370 


KK=0 

VSN 

380 


L=L*1 

VSN 

390 


M=»« + l 

VSN 

400 


GO TO 40 

VSN 

410 

PO 

CCMINUE 

VSN 

420 


RETURN 

VSN 

430 


END 

VSN 

440- 


SUPROUTTNF INTEG (E ,NN ,L0 , 17 . IJ ,P . TR J 

INT 

10 

C 

TO rake REFINEC INTEGRATION FOP INDUCED TANGENTIAL VELOCITIES 

INT 

20 


COPROM /6EOM/ RALFSWfXCP (200) ,YCP (200) ,ZCP(200) ,XLE (50) ,YLE (50) » 

XTINT 

30 


IE (EO) tPSI (20) ♦CH(95) ,XV (200) ,YV (100) ,SN{8,8) »XN (200»2) ,YN (200*2) 

»71NT 

40 


2N (200,2) ,PIOTH(P) ,YC0N(25) , SWEEP (50 ) ,HALF8 ,S J ( 2 1 ,8 ) ,EX (95,2) ,TX(95INT 

50 


3,2),SCn60,5),SI(160,5),LC(3) 

INT 

60 


PI=3, 14159265 

INT 

70 


J=LJ+1 

INT 

80 


JJ=NN»16 

INT 

90 


IF (NN.6T.6) JJ=NN*e 

INT 

100 


FJ=JJ 

INT 

110 


C1=TX(I2»1)-EX (T7,l) 

INT 

120 


C?=TX(IZ,2)-EX(I7,2) 

INT 

130 


SUP=0. 

INT 

140 


DO 10 K=1,JJ 

INT 

150 


XX1=EX (12,1) ♦CleSC (K,IP) 

INT 

160 


XX2=EX (12,2) +C2«SC (K,IR) 

INT 

170 


X1=XX1-XCP (IJ) 

INT 

ISO 


X2=XX2-XCP (10) 

INT 

190 


Y1=YN(J,1)-YCP(1J) 

INT 

200 


Y?=YN'( J»2)-YCP (IJ) 

INT 

210 


Z1=7N(J,1)-7CP(IJ) 

INT 

220 


22 = 2N(J,2)-2CP (IJ) 

INT 

230 


X12=XX2-XX1 

INT 

240 


Y123YN (J,2)-YN (J,l ) 

INT 

250 


212=ZN(J,2)-ZN(J»1) 

INT 

260 


Y7T=Y1*Z12-21«Y12 

INT 

270 


XYK=X1«Y12-Y1«X12 

INT 

2P0 - 


X2J=Xl*212-21*X12 

INT 

290 


ALE=XYK«XYK*X7J«XZJ+B«Y2I«Y7I 

INT 

300 


R1=£QPT(X1«X1+P«Y1«Y1+8«71*Z11 

INT 

310 


R2=SOPT(X2»X2+e*Y2«Y2+0«Z2«72) 

INT 

320 


UU= (X2eXl?*P«Y?«Y12*B»Z2«712)7P2- (X1»X12+8«Y1*Y12*P»21*712) /R1 

INT 

330 

10 

SURbSUR*UU«Y7I/ALP«SI (K,IP) 

INT 

340 


F=SUM«CH (12) / (P.oFJ) 

INT 

350 


RETURN 

INT 

360 


ENC 

INT 

37 0— 


SUPROIJTINE FUSELA (NF , AW ,N , I , S , XTFF , XF , XCF ,RF , BB , SNP ,NKF ,K2 ) 

FSA 

10 


OIRENSICN AW(1), XF(1), RF(1), XCF(l), SNP(5,20), S(l), NKF(l) 

FSA 

20 


PI=2, 14159265 

FSA 

30 



IK=0 ’ 

NlsKKF (1) 

N?=l 

HL=(S(?)«-S(lH/?i 
FNT=NKF ( 1 ) 

. A1=XCF(I)-XTEF 
A2r?QPT (A1»A1+PP«RF<I)«RF{I)) 

DO AO JJ=1 tNF 

XS=XCF(I)-XF(JJ) 

XSP=<50RT tXS«XS*FP«PF ( I ) *PF ( I ) ) 

IF (N.FG.O) GC TC ?0 
RFL=1. 

IF (KJ.GE.2) 60 TT 10 
IF (I.FG.NF) PFL=0. 

IF (I.^F.^■F) RFL = (Al+A?)fl«K«Al/'A? 

COKTINl F 

RFR=(X^*XSP)««N«X?/XSP 
60 TO 30 

IF (I.NF.NF) PFt=Al/A2 
IF (I.FG.NF) PFL=0. 

RFP = X‘i/XSP 

AW (JJ)=-HL*(RFL-RFP)«SNP (K2.V) / (4,*FK'T) 

IF 60 TC 40 

N?=K2*1 

IK = M 

N1 = N 1 *NKF (N2) 

(K2) )/?. 

FNT=NKF (N?) 

CONTINIJF 

PFTLRN 

Fwr 

SUPPOUTTNF UNUF ( P t XX , Y Y . 7 . A W , Piv , IPh I ,KL ♦ WK? , IT ) 
niFENSIOh AW(U, PW(U 

rOFK'ON /PCHFVE/ 6 (2) ,X { 10,41) , Y f 10 ,41 ) .RLOPF (IF) ,XL (P» 
1XLL(41) 

COFWOM /FUS/ XF(?0) ,XCF(?0) ,PF (20) ,PNP (=,20) ,XLFF,XTEF 
1UM,KF,KT,CSF ( = , 10),XAS(F),M<F( = ),FO,F10,KF,KTI. 

PI = 3. 141 = 9265 
P=CCPT (YY«YY+7*7) 

IF (7) 10.20,30 

thftA=PI-ATAN (YY/AF=(7) ) 

60 TO 40 
ThFTA=PI/?. 

60 TO 40 ' 

THETA = ATAN' (YY/4P5 (7) ) 

A1=XX-XTFF 

A2=9QPT (A1«A1+P«P«P) 

ST = SIK’(THETA) 


FSA 

FSA 

FSA 

FSA 

FSA 

FSA 

FSA 

FSA 

FSA 

FSA 

FSA 

FSA 

FSA 

FSA 

FSA 

FSA 

FSA 

FSA 

FSA 

FSA 

FSA 

FSA 

FSA 

FSA 

FSA 

FSA 

FSA 

FSA 

FSA 

FSA 

FSA 

FSA 

UNF 

UN‘F 

15) ,XTT (41 ) ,UNF 
UNF 

,W ART (20) ,NCUNF 
UNF 
UNF 
UNF 
UNF 
UNF 
UNF 
UNF 
UNF 
UNF 
UNF ' 
UNF 
UNF 



en 

70 

PO 

90 


CT=COS (THFTfl) 

CO 100 N = 

FNFsNKFd) 

TKsO 

M=NKF(1) 

M2=l 

S^X/'S (2) -XA9 ( 1 ) 

FKisS 
FLT = f). 

FLF=0. 

TF (N.GF.2) GO TT 50 
43= f (A1*A2) /R) 

FLT=-A3/FN 
FLF=A1/K«A3/AZ 
CONTINLF 
no Rf) JJ=1,NF 

K s J ^ 4- (K-1 ) «NF 

XR=XX-XF (JJ) 

X9R = ?0PT <XS«X5 + P*P«R ) 

XR= t (XS + XSR)/P) 

FTX = -XP/F(v 
FRX=XS/F*XR/XSR 

P1=S*(FPX-FLP)«';^P<^?^^'>/(A.«F^F) 

P2=S« (FTX-FL7) (N2,M/(A.«FNF) 

01=r0S (FN«THFTA) 

0? = SI\'(FK'«THFTA) 

UP=C1«P1 
ljT = -FN«n2*P? 

VR=C2«P1 
VT=FN»C1«P? 

VT=VT/P 
UT=LT/P 

TF (JJ.NF.M) GO TO GO 
N2=K2*1 
TK-Nl 

W1 = M*NKF(N'?) 

9 = XAS tK?*l )-XA? (h?) 

FNF = K'KF (N?) 

IF (FL.PO.l) GC TO PO 
IF (ID.FO.?) GC TC 70 
PW(K)=VP«CT-VT«FT 
AW fK) sLR«CT-UT«RT 
GO TO 90 

PW(K)=VP«ST+VT«CT 
GO TO 90 

PW{K) = (VR»ST4VT*CT>*Y (A.TPPn ♦ (VF*rT-VT«ST) »Y (3, I PH) 
AWfK) = (I'R-ttST + UT^rT) *Y (6 « IPPT ) + {l'P«CT-UT*ST ) -»Y (3, IPH ) 
CO^ TTNUP 


OF POOR QUAI^ 


UNF IPO 
UNF 190 
UNF 200 
UNF 210 
UNF 220 
UNF 230 
UNF 240 
UNF 2=0 
UNF 260 
UNF 270 
UNF 2P0 
UNF 290 
UNF 300 
UNF 310 
UNF 320 
UNF 330 
UNF 340 
UNF 350 
UNF 360 
UNF 370 
UNF 3P0 
UNF 390 
UNF 400 
UNF 410 
UNF 420 
UNF 430 
UNF 440 
UNF 450 
UNF 460 
UNF 470 
UNF 4fi0 
UNF 490 
UNF 500 
UNF 510 
UNF. 520 
UNF 530 
UNF 540 
UNF 5'=0 
UNF =60 
UNF =70 
UNF 5P0 
UNF 590 
UNF 600 
UNF 610 
UNF 620 
UNF 630 
UNF 640 
UNF 650 
UNF 660 



lOf 


110 


10 

?0 

30 

40 


COMINLF 

UNF 

■670 

IF (kl.ke. 1 ) gg tc no 

UNF 

6P0 

RFL=A1/R«(A1 4A?)/P/A? 

UNF 

6S0 

XP=XX-XLFF 

UNF 

•700 

AGsSOPT (-XP»XP + Pap«R) 

UNF 

710 

PF0=XP/P«(XP+A6)/R/fl6 

■UNF 

720 

LIR=-CT« (RFL-PF0>/‘<4.»PI ) 

lUNF 

730 

TL=- {A] *A3»/P 

UNF 

740 

T0=- {XP+A6)/R 

UNF 

750 

UT=ST« (TL-T0)/(4,«PI) 

UNF 

760 

UT=LT/R 

UNF 

770 

WK?= (UP<>FT4l'T«CT)<»Y(4,IPHT) + {UPeCT-UT«RT ) « Y ( 3 , IPH I > 

UNF 

780 

CGMINI E 

UNF 

700 

RFTURN 

UNF 

800 

END 

UNF 

810- 

SUFPOUTI^E FUSVGL (P ♦ X , Y , 7 » UN . .GBO , L »P7 ) 

FSL 

10 

COVPON /FUS/ XF (?0) ,XCF {?0) ,FF (70) ,CNP f?,?0) .XLFFfXTEF 

,WAPr (?0) ♦NCFSL 

20 

lUF»NFtKT,CSF (5 , 1 0 )-« X 4? ( ft ) , NKF ( = ) »F 0 , F'l 0 »KF , K TL 

FSL 

30 

RsSCPT (Y«Y*7*7) 

FSL 

40 

PI=3.14I59?65 

FSL 

50 

IF (7) lOtPO.TO 

FSL 

60 

TFFTA=FJ-ATAN (Y/APS (Z) ) 

FSL 

70 

Gfi TP 40 

FSL 

80 

THFTA=PT/2, 

FSL 

90 

GO TO 40 

FSL 

100 

THFT4 = 4TAN (Y/AFF (7) ) 

FSL 

110 

A1=X-XTEF 

FSL 

120 

AgrCOPT (A1«A] *Pflp«p) 

FSL 

130 

RFL=A1/A?/R 

FSL 

140 

XFF=X-XLEF 

FSL 

150. 

P?=P0PT (XEF«XEF+P«R*P) 

FSL 

160 

PFn=XFF/R/P? 

FSL 

170 

FT = - (A]+AZ)/P4 fxFF + P?)/P 

FSL 

180 

FR= ( 1 ,+A 1/A?) /P*A] /R- (1 , +XFF/R?) /F«xFF/R 

FSL 

190 

CGsCOF (THETA) 

FSL 

200 

SNsFJN (THFTA) 

FSL 

210 

WN=0. 

FSL 

220 

IF (H7.NF.0) Gr TC 60 

FSL 

230 

IF (L.FO.O) PC TC PO 

FSL 

?40 

IK = 0 

FSL 

250 

ni=nkf (1 ) 

FSL 

260 

N?=l 

FSL 

270 

FNFsMKF ( 1 ) 

FSL 

280 

S=XAS(?)-XAG(1) 

FSL 

290 

WN = 0. 

FSL 

300 

no =0 v,=i»NF 

FSL ' 

'710 

V = J-TK 

FSL 

320 

XS=X-XF ( J) 

FSL 

330 - 

•XSB = SOPT (X5*XF4c»p«p) 

FSL 

340 




RFX=XS/XSR/R 


FSL 

3^0 


WN=VM* (PFL-RFX ) «VSPD (J)^*S^'P(N2.^')«P/F^F 

FSL 

360 


IF (J.NF.M.OR.J.FO.NF) GC 

TO SO 

FSL 

170 


N?=N?+1 


FSL 

3P0 


IK=^ 1 


FSL 

350 


M1 = M*NKF (N2) 


FSL 

400 


S=X/iS(N2*l)-X/iS fK?) 


FSL 

4 1 n 


FNFsMKF (N2) 


FSL 

4?0 

EO 

CCKTINL'E 


FSL 

430 


WN=WN»PT/?. 


FSL 

440 


WN=- (WN+ (PFL-RFO) «F0)/ (4.«PI) 

FSL 

4S0 


WN-=kN»CS 


FSL 

460 


PP=F1 0 


FSl 

470 


Sl = cN 


FSL 

4P10 


S2=CS 


FSL 

450 


GO TO PQ 


FSL 

SOO 

f-Ci 

FPsFPO 


FSL 

RIO 


IF (WK.r-T.0.5) r-r to 7o 


FSL 

520 


Sl=-C5 


FSL 

530 


P?=«N 


FSL 

540 


GO TO PO 


FSL 

550 

70 

S1 = SN 


FSL 

560 


52=CS 


FSL 

570 

en 

CONTINUF 


FSL 

580 


W^ = ^,N-S^■»51*FT«FP/R / (4 ,»PI) 

-CS«S?«FR-i»FP/{4.«PI) 

FSL 

590 

50 

CCNTTWUF 


FSL 

600 


WK= (-5K«SN«FT/P-rc«-CS«FR) / {4.*PD 

FSL 

610 


RETI PN 


FSL 

620 


FNP 


FSL 

630 


SUPPOUTINF FPPFFr (P»X,Y,7* 

GAR,V.'K1,WK?) 

FSD 

10 


DIVFMPIOK 6AF(?,1) 


FSD 

20 


CORWON /FUS/ XF (rO) tXCF (?0) 

,RF(2P).?KP(G.?0)*XLFF,XTFF,WARr(?0) 

.N-CFSD 

30 


lU^'^^F,^T^CSF('=.10)^XAP(6)1^KF(':).Fn,F10.KF.^TL 

FSD 

40 


PI = 3 , 141552GE 


FSD 

50 


RrCGPT (y«Y + 7<*7) 


FSD 

60 


TF <z> 10,20,30 


FSD 

70 

10 

TRETA=PT-ATA^ (Y/ARS (7) ) 


FSD 

80 


GO TO 40 


FSD 

50 


theta^pi/?. 


FSD 

100 


GO TO 40 


FSD 

110 

30 

THFTA = ATfl\ (Y/APS (7) ) 


FSD 

120 

40 

A]=X-XTFF 


FSD 

130 


A7=S0P7 {A1*A1+F«P«R) 


FSD 

140 


RFL=-(A1 +A2) /P/A? 


FSD 

150 


DO FO I=1»NT 


FSD 

160 


FT = I 


FSD 

170 


CS=rOS (FI«THFTA) 


FSD 

180 


SS=5IN(FI«THFTA) 


FSD 

190 


TK = 0 


FSD 

200 



^H=^KF(1) FSD 

FSD 

HL = 0.5«(XAS(2)-X/SS{])) PSr 

FNT=NKF(1) FSD 

DO SO JJ=1»NF FSD 

J=JJ+ ( I-l ) *NF FSD 

M=jj_ik FSD 

XS=X-XF(JJ) FSD 

XSP^^SOCT (XS«XS + Pop*R) FSD 

RL=PFL FSD 

IF (I.GE.2) RL=0. FSD 

RX=-nXS*XSR)/R)«*I/X5P FSD 

6AF (2» J) =FL*CS« (PX-PL) (N2.F) / t4.«FKT) FCD 

0AM n ,d) =HL«SS« fPX-PL) *FKP (K2*M) / (4.*FNT) FSD 

IF (JJ.NE.Nl) GO TC 50 FSD 

N?=K?*1 FSD 

IK = M PSD 

N1=M +NKF (N?) FSD 

HL = n.‘=»(XAS(N2 + l )-XflS(N2) ) FSD 

FNT=NKF(N2) FSD 

CONTINl'F FSD 

COMINUF FSD 

XP=X-XLEF FSD 

Afi=SOPT ( XP«XF+PoR«R ) FSD 

RF0=-fXR+A6)/P/flf FSD 

WK2=-CCS (THFTA) r, (RFL-RFO) / (4.0PT ) FSD 

WKl^-SIN (THFTA)*(PFL-RFO)/U,«PI) FSD 

RETLRN FSC 

END FSD 

SUPPOUTINE VFLFl-c ( LWF ,LP AKt L ♦ Aw « C W , AP , LP A^ 1 , LP AK2 * IL i ISYK ) VFS 

DIPEK'STFN AW(1). FW{20), CW(1)» S<=F(5,10)f CW(20) VFS 

CnPPOM /6F0^</ hALFSWtXCP{?00) ,YCP (200) «7CP (200)»XLE(50)»YLF(50) « XT VFS 
IE (50) »PS'I (2n),CKS5)*XV(200),YV(10n)»S^(P,P).X^(200,^),Y^(^CO»?) ,ZVFS 
2N (200«?) tWIDIMF) ,YC0^ (2«^) .SWEEP (FO) . P ALFP ♦ <: J ( 2 1 ♦ P ) .EX (S5.?) ,TX (9PVFS 

3,2).sc(iP0,5),sinen,5),Lro) vfs 

CO»'FOK’ /CONST/ NCS.NCW.N] (P)»NS.^.NCJ(5) .LACT.^'dWl O.Sj.^dWEO.B) , JVFS 
IPANEL.NJJ (5) ,NW O) .NNJ.NJP VFS 

COMMON /FUS/ XF(?n),XCF( 2 n),PF(? 0 ),':NP(S,? 0 ) , XLFF , XTEF . W ARP ( 20 ) .NCVFS 
lUP.h F,^ T.CSF (5.10).XAC(f),KKF(>=).Fn,FlO»KF,NTl VFS 

P=1,-A^«AP VFS 

PI=3.1 A159265 VFS 

TH1=SNF ( 5 , 20 ) VFS 

NH1=SNP (5,19) VFS 

NJH= (ASJ + 1) /2 + 1 VF*; 

IF (ISYP.EO.O) AJF=NSJ/2 VFS 

IF (ISYM.EO.O) NF=NSJ-1 VFS 

IF (ISYP.NE.O) hP=NSJ*l VFS 

KY=0 VFS 

IF (IL.E0.2) ky=1 VFS 




ja 

QUAI4^ 




Nfi=KF 


VFS 

210 


LPL=LPAKEL 


VFS 

220 


LPV. = LWF 


■ VFS 

230 


IF (It.FG,?) LPL = L/1FT 


VFS 

240 


IF (IL.FG.?) LPi«=LAST + N7L 


VFS 

250 


DO 30 I=1«NT 


VFS 

260 


FI = I 


VFS 

270 


no 30 K = l,N‘CLf^ 


VFS 

280 


IF (NHl ,NE.O.Ahr,K,LE.KPn (=0 TO 10 


VFS 

290 


FK = K-NK-1 


VFS 

300 


FCLP=NCIJP-NH1 


VFS 

310 


PP=F1-Tt-1 


VFS 

320 


TP=TH1 


VFS 

330 


00 TO cP 


VFS 

340 

10 

FK = K 


VFS 

3-=0 


FCLP=\'H1 


VFS 

360 


PP=TH1 


VFS 

370 


TP = P. 


VFS 

380 

?o 

COKTTN'UF 


VFS 

390 


TA= {?,»FK-K) «PP/ (?,«FCUP) + TP 


VFS 

400 

■30 

SSF (T,K)=SIN(FI«TA) 


VFS 

410 


IPPI=1 


VFS 

420 


MJsLPA^FL+^CJ^) 


VFS 

430 


INN=1 


VFS 

440 


0N^=1 


VFS 

450 


no 70 I = 1,|.PL 


VFS 

460 


TI = I 


VFS 

470 


IF (IL.FO.?) IT=T+LPANFL 


VFS 

4A0 


IF flL.Fo.p.AKc . I ,GT .JPAFFL) IT=1-JPAKEL 


VFS 

490 


KL=1 


VFS 

500 


IF rll.LE.LPANFL) KL=n 


VFS 

510 


X=XCP til) 


VFS 

520 


Y=YCP(IT) 


VFS 

530 


7=7cp an 


VFS 

540 


CALL UhV^F (0,y,Y,7»®W»Fli.TPH tKL .WK?,KY) 


VFS 

550 


WPITE (01) (CV« (K) ,K = l,hTL) 


VFS 

'=60 


WRITE (07) (AW(K) ,K=1,FTL) 


VFS 

570 


IF (TL.NF.?) PC TC 70 


VFS 

5P0 


TF (IL.FQ.P.AMI.T.PT.vPANFL) GO TP 70 


VFS 

590 


IF (IT .LT.f'J.OP.TI ,F0.L A?T) PC TC 40 


VFS 

600 


IPhI=lPPT+] 


VFS 

610 


MJ=^/J + ^CJ (INN) 


VFS 

6?0 

<!t0 

IF ai.FO.(^JJ(IhN)-n ) GO TC 50 


VFS 

630 


GO TO 60 


VFS 

640 

■^0 

JN^=IN^ 


VFS 

650 


INN=IhN*l 


VFS 

660 

60 

IF (IT .FG.YJJ ( JLM ) IPPT = l 


VFS 

670 

70 

C0^TT^!l!F 


VFS 

680 


TAIL IJNFW (1 A'^T,t_PAKFL <P.LPAM ,LPAK? ,KW, AW 

«NCj*Nwh,NP) 

VFS 

690 



PO 

90 

IOC 

no 


120 

I'lO 

14C 


DO 150 1=1. NT 
REWIND oe 
M=I 

ro 140 J = 1-.NF 
JJ=J 

DO no K’ = l,LPL 
KI=K 

IF (II .EQ.2‘.ANr,K,LF.LP4KFL) KI=K + jPfiKFL 
IF (IL.FQ.P.ANC.K.PT.LPPNFU) KI=K-LP4NFL 
REAP (OP) (DW (KK) ,KK = 1.NC1JP) 

REAP (OP) (DW (KK) ,KK = l,Nrijf') 

AN=r. 

RN=0, 

DO 100 KK=1,NCIJM 

IF (NHl.NE.O.AhD.K.LE.NHl ) PO TC PO 

FCLP=NCLW-NH1 

PP=FI-TM 

PO TO 90 

FCDN=NH1 

PP=TH1 

CONTINUE 

nK = pw + F.K {KK)«ccp ( I . KK ) oPP/F CU^' 

ANsAM + PW (KK)«C<!F { I , KK ) •upp/FCUt' 

AN=AN«2./PI 
RN = PW<>?./PT 

CW(KT)=PN»RF(J)»« (T+1) 

AW <KT) =AN«PF (J)oe ( I + l > 

CftLL FtPELA (KP.PW.A .JJ,XAS,XTFF.XF.yrF,PF,P,5NPtN'KF.KY) 

00 IRO KK=l,KTL 

M= (I-l )«NF + 1 

N?=I«NF 

(•psKN+LFL 

IF fKK.CF.M .AND. kk ,LE,N?) PC TC 1?0 
AW (NP)=n. 

CW<NP)=G. 

GO TO 1"50 
NK=KK-N1+1 
AW (KP) =BW (NK ) 

CW (NP) =FW (NK) 

COMTMliF 

hPITE (01) (CW (K) ,K = 1 ,LPW) 

WRITE (07) (AW (K) .K=I ,LPW) 

CONTTNUF 

RETURN 

END 

SUFPOUTINE WINP ( AW , PW ,LP ANFL 1 1 , FP ,LPAN 1 ,L P AN? ,KF ) 
CIVENSICN AW(1). PW(1> 

OINFN5ION W(4) 


VFS 700 
VFS 710 
VF5 7?0 
VFS 730 
VFS 740 
VFS 7F0 
VFS 760 
VFS 770 
VFS 780 
VFS 790 
VFS POO 
VFS 810 
VFS 820 
VFS 830 
VFS 840 
VFS 850 
VFS 860 
VFS P70 
VFS PPO 
VFS P90 
VFS 900 
VFS 910 
VFS 920 
VFS 930 
VFS 940 
VFS 950 
VFS 960 
VFS 970 
VFS 9P0 
VFS 990 
vFsinon 
VFSinif) 
VFS1020 
VFS1030 
VFSl'040 
VFS1050 
VFS1060 
VFS1070 
VFSIOPO 
VFS1090 
VFSllOn 
VFSlllo 
VFS1120 
VFS1130 
VFS1140- 
WNG ' 10 
W.N(3 20 

WN6 30 


CONVON /PE0‘'/ FALF':v..xrP (?{'0) ,YCP (?n0) ,7CP (POO) .XLF (50) .YLE (50) .XTWNG 40 



IE f5f<) ,PST (?0) ,CH (95) ,XV (?0n) ,YV (100) »EN(P,B) ,XN (200,2) .YK (200 

,2) ,7WN6 

50 

2K (200,2), width (P) ,YC0N{?5) ,SWFFP (50) ,H0LF8 , S J ( 2 1 , 8 ) , EX (95,2) , 

TX(95WNG 

60 

3, 2), SC (160, 5), ST (360, 5), LC (3) 

WNG 

70 

COHHON /AFROX AHl,Ak2,Bl,F2,CL(30) ,CT(30) ,Cn(30) ,GAH(2,130) 

WNG 

80 

COHRON /CONST/ NCS ,NCW , N 1 (8 ) ,NS J ,NC J (5 ) ,L AST ,MOVi 1 ( 3 , 5 ) JW2 (3 

,5) ,JWN6 

90 

1PANEL,K0J(5) ,NW (3) 

WNG 

100 

IP=1 

WNG 

110 

TZ=1 

WNG 

120 

TFF = 1 

WNG 

130 

ISN=1 

WNG 

140 

NL=NW (1 } 

WNG 

150 

NN=NW (1 ) 

WNG 

160 

DO 60 J=l,LPANFI. 

WNG 

170 

MI = J-.IFF + 1 

WNG 

180 

FNrNL 

WNG 

190 

IF (J.EO. (LPAM + 3 ) .OR.J.FC. (LPAN2 + 3 ) ) 1P=1 

WNG 

2('0 

IF (J.PT.LPAM .ANC.v.LE.LPAN?) isn=? 

WNG 

210 

IF (J.GT.LPANP.AND.v.LF.LPANEU ISN=3 

WNG 

220 

IF (O.PE.LPAM .AhC.O.LT.LPANFU 60 TO 10 

, WNG 

230 

00 TO 20 

WNG 

240 

NL=NW (2) 

WNG 

250 

IF (J.GF.LPAN2.AFD.v,.LT.LPANFL) NL=FW(3) 

WNG 

260 

CONTINUF 

WNG 

270 

)fl = XN(o,l)-!<CF (I) 

WNG 

2PO 

X2 = XN (J,?) -xcc (I) 

WNG 

290 

X12=XN(J,2)-XN(J,1) 

WN6 

300 

Y12=YN‘(J,2)-YN(J,1) 

WNG 

am 

712=7N (J,2)-7N (J,!) 

WNG 

320 

71=7N(J.1)-7CP (I) 

WNG 

330 

72=7N(0,2)-7CF (I) 

WNG 

340 

X7J=X1*71?-71«X1? 

WNG 

350 

CO *=0 11 = 1,2 

WNG 

360 

IF (II.FO.l) GO TO 30 

WNG 

370 

N=1 

WNG 

380 

60 TO 40 

WNG 

390 

N=2 

WNG 

400 

rONTiNUF 

WNG 

410 

YC=(-1.)<»*N*YCF(T) 

WNG 

420 

Yl=YN(J.l )-YC 

WNG 

430 

Y?=YN (J,?) -YC 

WNG 

440 

XYK=X1»Y12-Yl«xi? 

WNG 

450 

Y7I=Y1«71?-71«Y12 

WNG 

460 

ALRl=XYK»XYK+X7J«X7J*BF«Y7I»Y7r 

WNG 

470 

P1P1=S0RT (X1«X1+PP«Y1«Y1+PP«Z1«71) 

WNG 

480 

P2ei=S(3RT (X2flX? + PF«Y2*Y2*PP«Z2»7 2) 

WNG 

490 

UUF1=(X2»X12+PP*Y2«Y12*RP*??*712) /R2Pl-(Xl»Xl?*Pe«Yl«Y12+Ge-o71»712WN6 

500 

1 ) /PlRl 

WNG 

510 

G1FJ=(1.-X1/P1F1)/ (Y1«Y1*71«71) 

WNG 

520 

G2P1= (1 .-X2/P2F1 )/ (Y?eY2+7?«7?) 

WNG 

530 


- original page ife 

OF POOR QUALITY 




FlsUURl^XYK/ALei 

WN6 

540 


F2=-Y?*G2B1*Y1*61B1 

WNG 

550 


Vi (II+2) = (F1*F2)«CB (I7)«SN t ISN ) / (« .*FN ) 

WNG 

560 


IF (IP,E0.1.ANO.KF.NE,0) F2=“Y?«G?P1 

WNG 

570 

50 

W ( II)= (FI +F?)«CH (17) «SN (HI » ISN) / (P .*FN ) 

WNG 

580 


aw (0)=W ( 1 ) ♦W (2) 

WNG 

590 


PW (J)=W (3)-W(4) 

WNG 

600 


IF f J.LT.NN.OR.J.FO.LPANFL) GO TO 60 

WNG 

610 


IP=IP+1 

WNG 

620 


I7»I7*1 

WNG 

630 


TFF=NN+1 

WNG 

640 


nn=nn*m. 

WNG 

650 

60 

CONTINI.F 

WNG 

660 


RETUPN 

WNG 

670 


FNC 

WNG 

6P0- 


SUBROUTINF IJNFW (LP«T , LP ANEL »P 1 »LF4K-1 ♦LPAK? » KW » ♦ BW ,N J J t IL * 

NCJ,NJUNW 

10 


IH.NP) 

UNW 

20 


niHFNSION SF(IO). CF(10)» AW(1)« V(4), NW { ] ) « PV. (1 ) • HJJ(1)» 

NCJOUNW 

30 


1) 

UNW 

40 


COHHON /FUS/ XF(?0)»XCF(20>»RF(PO) .RKP (5»?0)»XLEF»XTEF*WARD(20) »KCUNW 

50 


1UM,NF«NT»CSF C^,1 P) ,XAS (6) ,NKF (5) , F 0 ,F 1 0 .KF ,NTL 

UNW 

60 


COHHON /6F0M/ HAL FSWtXCP (200) tYOF (?00) ,7CP (200) «XLF (50) *YLE (50) tXTUNW 

70 


lF( = 0)*PSI(20)»C(-c;5),XV(POO),YV(100)«FN(8.P),XN(200«?)tYN(200t2) *7UNW 

PO 


2N (200,2) fWinil- (P) ,YCCN (2=) .FWEFP (50) .HALFP,5J (21,P),EX(S5,2) 

,TX (95UNW 

90 


3, 2), 50 060,5), ST (160, 5), LG C^) 

UNW 

lOO 


PT=3. 14159265 

UNW 

110 


REWIND oe 

UNW 

120 


TH1=SNP (5,20) 

UNW 

130 


NH1=SMP(5,19) 

UNW 

140 


JCCT=XTE (50) 

UNW 

150 


IC0N=LP4NEL 

UNW 

160 


IF (IL.EC.2) ICONcLAST 

UNW 

170 


DO 30 I=l,NCtH 

UNW 

180 


IF (NHl .NE.O.ANr.I.LE.NH) ) FO TO 10 

UNW 

190 


FI=I-NH1 

UNW 

200 


FCL,H=:NiCUM-NH1 

UNW 

210 


pp=pi_thi 

UNW 

220 


TP=TH1 

UNW 

230 

' 

GO TO 20 

UNW 

240 

10 

FI = I 

UNW 

250 


FCUH=NP1 

UNW 

260 


PPsTHl 

UNW 

270 


TP=0. 

UNW 

280 

20 

COMTNIjF 

UNW 

290 


T=(2,«FI-1,)*PF/ (2,*FCUH) +TP 

UNW 

300 


CF(I)=C05(T) 

UNW 

310 

30 

SF(I)=5IN(T) 

UNW 

320 


KCCK=NF*l 

UNW 

330 


KC = NCIJH 

UNW 

340 




DO POO T = 1,KC0K' 

UNW 

3S0 


IF {I,FG.KCO^) Kf=l 

UNW 

360 


TP = 1 

UNW 

370 


17 = 1 

UNW 

3P0 


TFF=1 

UNW 

390 


TK'C=1 

UNW 

400 


JKT=1 

UNW 

410 


L1=LPANFL+1 

UNW 

4P0 


LA<=T1=LPST-1 

UNW 

430 


TSN=1 

UNW 

440 


M^'=^W(n 

UNW 

4=30 


NN=NV! ( 1 ) 

UNW 

460 


no T50 J=1,ICCN 

UNW 

470 


MI=J-1FF*I 

UNW 

4fl0 


FN=KN 

UNW 

490 


IF (J.AT.LPANEL) 6C TO '^0 

UNW 

500 


IF (J,FG,(LPAM+1) .OR.J.FG, (LPANP-U) ) IP=1 

UNW 

510 


IF (J.r-T.UPAM .ANC.J.LE.LPAK?) ISN=? 

UNW 

52(* 


IF (vJ.PT.LPAKa.fiNr.^.LF.LPANFL) I?K = 3 

UNW 

530 


IF (O.fE .LPAM.AKD.J.LT.LPANFL) GC to 40 

UNW 

540 


GO TO =0 

UNW 

550 

40 

NN=NW (?) 

UNW 

= 60 


IF (0.GF.LPAKJ.4KC.J.LT.LPAN-FL) FK=NW(3) 

UNW 

570 

<=0 

COMINI F 

UNW 

5P0 


IF (JCGT.EO.l.Ahr.J.GT.LPANFL) GC TO PO 

UNW 

590 


GO TO 70 

UNW 

600 

ftO 

IF (JKT.EG.I.CR.JKT.EO, (KJH*1) ) IP=] 

UNW 

610 

70 

CG^TI^UE 

UNW 

620 


IF (J.GF.LPA^FL.A^D,O.LT.VoJ{I^n^ ) KN=NCJ(INO) 

UNW 

630 


CH0PD=CF (IZ) 

UNW 

640 


IF (IL.EQ.1) 60 TO lOO 

UNW 

650 


IF (J.EC.Ll) CO TC flO 

UNW 

660 


GO TO <30 

UNW 

670 

pn 

IS^=I5^ +1 

UNW 

680 


L1=FJJ(I^D>♦1 

UNW 

690 

<30 

NL=VJJ ( INO) -1 

UNW 

700 


IF (NL.FO.LASTI) CO TO 100 

UNW 

710 


IF (J.FCS.NL) IKC = INR + 1 

UNW 

720 

100 

CO^TINLE 

UNW 

730 


DO 160 K=l,KC 

UNW 

740 


IF (I.FO.KCOM PO, TO 110 

UNW 

7=0 


X=XCF (I) 

UNW 

760 


Y=PF (I ) «SF (K) 

UNW 

770 


Z=RF (I)*CF(K) 

UNW 

780 


GO TO 120 

UNW 

790 

un 

X=XLFF 

UNW 

800 


y=o. 

UNW 

810 


7 = 0, 

UNW 

P20 

120 

COMINl'F 

UNW 

P?0 




X1=XN(J,1 )-X 

UNV< 840 


X?=XN(J»3)-X 

UNW 050 


X12 = XN(Jf2)-XN(J.n 

UNW 860 


Y12 = YN(J.2)-YK'(J,1) 

UNW 070 


Z12=ZN(J»2)-ZK(J,1) 

UNW pen 


71=ZN(J»1)-Z 

UNW 890 


7?=7N(J«2)-Z 

UNW 900 


X7o=Xl«Z12-Zl«Xl? 

UNW 910 


00 150 11=1.2 

UNW 920 


FCP=1. 

UNW 930 


IF (II.EQ.2) FCP=-1. 

UNW 940 


YC=Y«FCP 

UNW 950 


Yl=YN(J.l )-YC 

UNW 960 


Y2=YN ( J,2) -YC 

UNW 970 


XYK=X1*Y12-Y1*X1? 

UNW 9P0 


YZI=Y1»Z12-Z1«Y1? 

UNW 990 


ALP1=XYK«XYK*XZJ«XZo+B1*Y2I*YZI 

UNWIOOO 


Piei=S0RT(Xl*Xl+Fl*Yl«Yl+Pl<»71*Zl ) 

UNWIOIO 


R2P1=SCPT (X2*X2*F1«Y2*Y2+p1*72«Z2} 

UNW1020 


UUEl = fX?«Xl2 + ei«Y?«Yl2*Pl«72«7]2) /R?P 1 - { X 1 *X 1 2 

+P1»Y1«Y12>P1«71«Z12UNW1030 


1) /RlBl 

UNW1040 


R1F1=(1,-X1/P1P1)/(Y1«Y1+Z1*71 ) 

UNW1050 


02El=n .-X2/R2P1 ) / (Y2«YP + 7?«72) 

UNW1060 


F12=UUPl«XYK/ALei 

UNW1070 


G12=-Y2oG2Bl+Yl«PlPl 

uNwineo 


IF a.FO.KCON) GC TO 130 

UNW1090 


F13=UUP1«X7J/ALP] 

UNW 11 00 


F13 = 72*^G2P1-71«G1P1 

UNWl 1 10 


F1=-F13«5F {K)*FCP*F1?«CF(K1 

UNW1120 


F2=G13«?F (K)«FCP*Gl?«CF (K) 

UNWl 130 


IF (J.LE.LPANEL) GC to 140 

UNWllAO 


F1=2.«F1 

UNWU50 


F2=2.«F2 

UNW1160 


60 TO 140 

UNWl 170 

130 

F1=F1P 

UNWl 180 


F2=G1? 

UNW1190 


IF (J.LF.LPANFL) GC TO 140 

UNW1200 


F1=2,*F1 

UNW1210 


F2=P,«F2 

UNW1220 

lAO 

w < n*?» = (Fi+F?) «rPCFn»FF' (PI , ism / (p.«fy) 

UNW1230 


IF (IP.NF.l) GO TC 150 

UNW1240 


G12=-Y2«G?B1 

UNW1250 


G13=Z2*C2B1 

UNW1260 


F?=G13«SF (K)«FCP*G12«CF tK ) 

UNW1270 


IF CI.EO.KCON) F?=G12 

UNW12P0 


IF (J.LF.LPANEU go to 150 

UNW1290 


F2=?,»F? 

UNW1300 

1 = 0 

W (II) = (F1+F2) oCHOROffSN (PI«I = M/ (P ,»FM 

UNW1310 


IF (I.EC.KCOM GO TO 160 

UNW1320 
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leo 


170 

i«o 


1<50 


?or 

c 


c 


AW(K)=W(1)*W(2) 

ew{K)=w(3)*W(4i 

CONTINUE 

IF (I.EO.KCON) GO TC 170 
WPITE (OP) (AW (KK) ,KK = l,NOUF) 
WRITE (OP) (6W (KK) .KKal ,NC('P ) 
GO TO IPO 
PW(J)=W(1)+W(?> 

CONTINUE 

IF (J.LT.f'F) r-C TC 190 

IP=IP+1 

17=17+1 

IFF=NM+1 

MM=NN + NN' 

IF (J.GT.LPANEL) ukt=jkt+i 
IF (JKT.EQ. (NP+1) ) JKT=1 

continue 

IF (I.nf.kcom go to poo 
write (OS) (AW(KK) *KK = 1 ,TCON) 
CONTINUE 
RETURN 


UNW133D 
UNW1340 
UNW13E0 
UNW1360 
UNW1370 
UNW13P0 
UNW1390 
UNW1400 
UNW1410 
UNW1420 
UNW1430 
UNW1A40 
UNW1450 
UNW1A60 
UNW1470 
UNW1480 
UNW149r> 
UNW1500 
UNW1510 
UNWISPO 
UNW1530 
UNW1E40 

FNC UNW1550- 

OVFRLAY (WNGJET,).0) GEO 10 

PRCGPAW GEOHTY GEO PO 

TO SET UP THF GFOFFTPY OF THE VCPTEX ELFnFNTS AND CONTRCL POINTS GEO 30 
niVENclON XXL(5). YL(5), XXT(5)t 71(5), CPCWL(31)» CPSWL(31) GEO 40 

COHt^ON /SCHEHE/ 0 (?) ,X (10,41 ) »Y { in,Al > .SLOPE (1*=) .XL (?,15 ) tXTT (41) .GEO 50 
1XLL(41) GEO 60 

CCHYON /6EOM/ HALFSW . XCP ( POO ) , YCP ( POO ) , 7CP ( POO ) , XLE (50 ) , YLE ( "50 ) .XTGEO 70 
IF (=0 ) .PSI (?0) ,CH (9S) .XV (POO ) ,YV (lOO) ,SN(fi.P) .XN (POO.P) »YN (POO, 2) ,7GEC PO 
PN (EOO,P) .WIOTKP) .VCON (?5) .SWFFP (50) . H ALFR . S J ( 2 1 . P ) , EX ( 95 , P ) .TX (95GE0 9 0 

3.P) ,SC(160,5) ,SI (160.5) ,LC (3) GEO 100 

COHVON /SKODE/ KCCCE GEO 110 

COHPON /AFRO/ AV 1 . AHp ,P 1 . P? .CL ( 30 ) ,CT ( 30 ) .CO (3 0 ) ,GAK (2 , 1 30 ) GEO IPO 


COHYON /SOHE/ NC.NWING.LAT .NAL,LWF,LWFJ,CHCPDT (3) .SN6(S) ,YG (5) .YCNGEO 130 
1 (6) ,VIK^'♦PDX.HCG.^DG GEO 140 

CCHYON /FUSRAC/ IFF . IFN , XFF ( ? 1 ) , RFF { PI ) . A AF (?0 ) , PPF ( ?0 ) » CCF ( 20 ) .ODGEO 150 
1F(?0> GEC 160 

COHYON /FUS/ XF (PO) .XCF (20) .PF (20) .SNP(5.20) .XLEF.XTEF.WARC(20) .N'CGEO 170 
1UY,NF.NT,CSF{5,10) ,XAS(6) .NK-F ( = ) .FO.Fin.KF.NTL GEO ISO 

COYYON /CONST/ NCS.NCW.Yl (R) ,^5J,^CJ (?) .LAST, VUWl (3.5) ,YJW2 (3,5) .JGEO 190 
1PANEL,YJ0 (5) ,NW(?) ,NNJ»N'JP GEO 200 

COYYON /PARAY/ ALPT, ALPC, alps, CDF. SCF ,TH,T nF GEC 210 

COYYON /AOO/ CP (130) ,CY (-Sfi ) ,PPFAK (P) ,SWP (P.15) ,GAL (30) ,ISYY,VMU,VUGEO 220 
1 ,TEYP,FCR,CAYLEP.CAYLET,CAYTFR,CAYTFT,XJ,YJ.7J,R0,ALP,CREF,TWI?TR geo 230 
COYYON /COST/ L TOT* L , LP AN 1 . N JW (5 ) ,L PANFL , lENTN , LPAN2 . EX IT ,PT T AL , TWGEO 240 
IIST.OF ('^) .NFP GEO P50 

COYYON /CAYB/ ICAY , I Y , XT ( ? . 1 1 ) , 7C ( ? , 1 1 ) , AAY (2 , 1 0 ) , SPY (? , 1 0 ) . CCY ( P , GEC P60 
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110} ,OOMf2tlO) 
WRITE {6t620) 
PI=3. 14159265 
NC5sO 
KL = 0 

IPAKFL=1 

PT=rO. 

00 10 1=1.5 
YCN (I}=0. 
0F{l)=n. 


GEO 
GEO 
GEO 
GEO 
GEO 
GEO 
GEO 
GEO 
GEO 

10 OF{l)=n. GEO 

GEO 

NU^'BFRS of FPEESTPE/iw /iND JET FLOW. FPFESTREAP/JET VELOCITY GEO 
PATIO. JET/FPEESTFEAV TEPPEPATL'RE RATIO. ANGLE OF ATTACK IN DEGREE. .GEO 
WING L.E. and t.f. y-cooFriNATFs at the jft axis location*** GEC 

GEO 

READ (P.570) ARl.AV2.VPb.TFPP.ALP.XEL.yET GEC 

WRITE (6. *=70) AP1.AP2.VPL.TEPP.ALF.XEL.XET GEO 

GEO 

e**NUPPEP OF FLAP SECTIONS (INCLUDING THE JFT SPAN). THE NLPERICAL GEO 
ORDER OF JET SPAN AND THE CORPFSPOND ING FLAP DEFLECTION ANGLES IN GEC 
nEGBFES *** GEO 

GEO 

READ (F.610) NFP.NJP, (0F(T).T=1.NFP) GEC 

WRITE (F.GIO) NFP.NJP. (DF(I) »I = 1.NFP) GEO 

GEO 

*«*REFFRFNCF HALF WING APF8, RFFFPENCF CHORD. TWIST IN DEG,. IN'CIDEN-GEC 
CE OF ROOT CHORD IN DEG., X-, Y- AND 7- COORDINATES OF JET CENTER GEO 
AT EXIT, AND JET RADIUS *** GEO 

« NOTE. FOP USB APPt I C AT I ONc , YJ.7J AND PJ PAY PE ANY N0N-2FRC VAIUESGEO 
.UNLESS THF RECTAkGULAP JE^ IS NOT ON THE 'UPFACE AND THE FNTRAIN-GFO 
PENT EFFECT IS TO PF ACCOUNTED FDR. GEO 

GEO 

READ (=,570) HALFSW.CREF, TWIST, TWI=TP.XJ,YJ,7J.RJ GEO 

WRITE (6.570) HALFSW. CREF, TWIST. TWI^TP. XJ. Y J.7o.RJ GEO 

GEO 

«*«TPAILIN'F-ED6E ANGt F IN DEG., PAPT1AL~SPAN FLAP INDICATOR ( = 0, FOR GEO 
NO CP full-span FLAP. AND =1. OTHERWISE). CONFIGURATION INDICATOR GEO 
(=1. FOR USP. AND =0. FOR OWB). L.E. CAPPFR AT THE ROOT AND TIP, GEO 
AND T.F. CAPPER at THE ROOT AND TIP *•* 

« NOTE, FOR USP APPLICATIONS, TFANGL hay RE ANY VALUE * 


IF CAMPFP OPDINATFS are to PE READ IN, THE L.F. AND T.E, CAPPER 
SLOPES TO BE READ IN BFLOW PAY PF ARPITRAPY NUPFEPS * 

READ (=.570) TFANGL. PTIAL. USB, CAPLER, CAPLET. CAPTEP.CAPTET 
WRITE (6,570) TE AN'GL .PT I AL . U=P , CAPLER .CAPLF7 . CAPTER , CAPTET 
IF (RJ.LE. 0,0001) RJ=1. 

IUSB=USB 

DFo=0, 


GEC 

GEO 

GEO 

GEC 

GEO 

GEO 

GEO 

GEO 

GEC 

GEO 

GEO 


27 0 
280 
290 
30 0 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
= 70 
580 
590 
600 
610 
620 
630 
640 
6 = 0 
660 
670 
680 
690 
700 
710 
720 
730 
740 
7=0 



r> o r> o n 


CVL'sf) 


« THE FOLLOWING DATA ABE NOT NEEDED FOP OWR APPLICATIONS * 
IF (lUSe.NE.l) GC TO 20 


20 


30 


«*» THRUST COEFFICIENT, JET 
COTE IF THE rectangular 
entpainhent due to an EQU 
OTHERWISE) 

PEAC (E.'^TO) CHL,DFJ,TNJ 
WRITE (F,570) CHU,0EJ,TNJ 
CONTINUE 
0FJ=nFJoPI/180. 

CDF=DFJ 
DO 30 1=1, S 
nF(n=DF(T)*FI/]PO. 
TDF=OF{NJP) 

alp=alp«pi/ipo, 

ALPS=SIN (ALP) 

ALPC=CCS (ALP) 

ALPT=ALPS 

nF = TFANGL «PI/ien. + TDF 
IF (lUSP.EO.l) rnF=DFj 
EXIT=0. 

IF (XJ.FT.XEL) FXIT=1. 
XEL= (XFL-XJ) /PJ 
XET= (XET-XJ)/RJ 
7=70/RJ 
TH = 0. 

Ml (4)=0 
ITN=TNJ 
YCCN (23)=TNJ 


DEFLECTION angle IN DEG, AND EN7PA 
FT IS NOT ON THE WING SURFACE (=1, 
IVALENT ROUND JET IS TC BE INCLUDE 




GEO 

GEO 

GEO 

GEO 

GEC 

INMFNT GEG 
IF THFGEO 

C, =0. GEO 
GEO 
GEO 
GEO 
GEO 
GEO 
GEO 
GEO 
GEO 
GEO 
GEO 
GEC 
GEC 
GEO 
GEC 
GEO 
GEO 


IF 

(lUSE.Efl, 

l.ANC 

. ITN.EO, 

,0) 

00 TC 

CALL ENTPN ( 

VHU. A 

H2, 

TEMP. 

,XK 

',CU,RT 

XFCUT=XH*RJ+ 

XJ 





PEGUI=RT*RJ 






RT = 

PEOUI 






IF 

( lUSF.FD. 

1) GO 

TC 

40 



IF 

(XFL.LT.n 

, .and 

.2J 

.GE. 

(2. 

,«PJ)) 1 

IF 

(7J.GF. n 

,«PJ) 

) K 

CODE: 

:0 


Fl = 

-29.5428* 

cu«ru 

♦ 33 

.7371 

l*C 

:u-p.9L 

IF 

(CU.GT.O. 

6339) 

FI 

= 0 .6 + 0 < 

,4«(C( - 

IF 

(Fl.LT.O. 

.and. 

7J. 

GF, (1 .c 

!*FJ)) 1 


40 


IF (KCOCE.EO.O) GC TC 40 
7P=P1«RT/?. 

THrjp 

CONTINUE 

IF (lUSP.FO.l) KC0CE=1 


760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
GFOIOOO 
GEOlOlO 
GE01020 
GE01030 
GE01040 
GFC10'=0 
GECl 060 
GE0107n 
GE01080 
GEC1090 

GEonoo 

GEOlllO 

GE01120 

GE01130 

GE01140 

GEOllSn 

GFO1160 

GE01170 

GE01180 

GEC1190 

6E01200 

GFC1210 

GE01220 

GEC123n 

GE01240 
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50 


6 Or 


Or 


IF nUSP.NE.l.ANR.KCCDF.FG.l) PC TR >^0 GE01Z50 

GO TO 60 GE01260 


AX=>FL<»PJ GEO1P70 

njX=?.«RJ GEOIZPO 

IF (F1.LT»0») Fl=0, 6E01Z90 

IF (ZJ.LT* (Z,«PJ) .AND.ZJ.GE. (l.E«PJ) ) FI=F1 + ( 1 ,-F 1 ) « ( 2 ,«R J-7 J ) / ( 0 .GEO,1,300 
15»PJ) GE01310 

IF (7J.LT. {1.5*RJ) ) Fl=l. GE01320 

IF IFI.GT.I.) Fl=l. GE01330 

FACT=f1 ‘ GE01340 

CnF=DE*FACT GE01350 

CONTINUE GE01360 

DO 70 I=1»R GE01370 

►^I<I)=0 GE01380 

GE01390 

«** TOTAL NUMBER OF FPANwlSF SFCTION*:.- AMP THF NUMBER OF VORTEX GE01400 

5TPIPG IN' EACM SECTION PLU‘= 1 GE01410 

« THE NUMBER OF VCPTFX STRIP? IN THF JET PF6I0N ‘5HCULD PE CCNS ISTENTGF01420 

WITH THAT OF JET VCPTEX STRIP? « GEC1430 

» NW1NG=THE NUMERICAL OPDFP OF LAST WING SPANWISF SECTION « GE01440 


READ' (PjSeO) NC, (Ml (I) ,Ir] ,NC) .N'WIN(= 

WPTTF (6»S80) NC,(M1 {DtlsltNOtNyiNC' 

«««THF numerical CPOEP OF FLAP ANP JFT SPANS AMONG THE SPANWISF 
SECTIONS 

READ {?»S80) (NJW(T)-»-I = l .NFP) 

WRITF (6.5P0) (NJW (I) »I=1 ,NFF) 

NfMPFR OF CHORCVISE VORTFX ELFMFNTS IN CHCRDWTSE SECTIONS* AND 
CAMFFR CODE (=1 IF CAMREP CPCINATF? APF TO RE READ IN, =0 IF 
CAVPEP FUNCTICNc APF DEFlNEO PV CLOSED-FOPP EXPRESSIONS MANUALLY 
IN' SUBPROGRAM? ?CP{X) AND. 7CT(X)), AND THF NUMBER OF CAMBER ORDI- 
NATFS TO PE REAP IN (ARBITRARY IF ICAM=0) ««« 

0 note, the MAXIMUM MJMPER OF CAMPFP ORDINATES ALLOWED IS 11 « 

READ (SfSPO) (NW(I) ,1 = 1,3) .-ICAM,TM 
WRITE (6,SP0) (NW(I) ,1 = 1,3) »TfAM,.IM 
NCW=NW'(1 ) 

L = 1 

IF (ICAM.N'E.l) C-C TO 110 

««« IF ICAM=1, REAP IN THE X-COCPPINATFS AND THE CAMPER ORDINATES, 
FIRST FOR THF ROOT SECTION AND THEN FOP THF TIP SECTION *»« 

IM1=IM-1 

no 100 1=1,2 

PE'AC (5,570) (XT(I,J) ,J = ] ,TM) 


GE01450 

GF01460 

GE01470 

GE01480 

GE01490 

GEC1500 

GE01510 

GE01520 

6E01530 

GF01540 

6EG1550' 

6E01560 

6E01S70 

GEOISPO 

GF01590 

GEC1600 

6E01610 

GE01620 

6EO1630 

GE01640 

GF01650 

6E01660 

GE01670 

GE01680 

GE01690 

GE01700 

6E01710 

6EC1720 

GEC1730 
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REAR (5,570) (7C ( I , Jl ,J=1 ,IR) 

PO eO J=1,IM 
XFF {J)=XT(I,J) 

PO PFF (J)=ZC(I,J) 

CALL SPLINE (IM,XFF,RFF,AAF,PBF,CCF,DOn 
DO SO 

AAf/ (I,J)=AAF (J) 

R8)'(I,J)=PBF(J) 

CCf' (T.J) =CCF (J) 

“50 no^ (I,J)=DDF(J) 

100 CONTINLF 
no COMINCF 
1?0 CONTINUF 
LL=1 
FN=NCW 

no 130 1 = 1, KTW 
F1 = I 

CPCViLn)=0.5«(l,-CCSf (2.«FI-1 .)«PI/i3.«FN) )) 

SN (I,U=2.*SGPT (CPCWL (I )«( l.-CPCVrL (!) ) ) 

130 CPCWL tI)=CPCWL (I)«100, 
on ESO KK=1,NC 
C 

c crOPPINATES OF PFFAK CHCRO? PCI ^nI^G SPAKWl'^F pECTTOKp *»« 

C 

REAP (5,570) ( (XXL (I ) ,XXT ( I) , YL (I ) , 1 = 1 ,2) 

WRITE (6,570) ( { XXL ( I ) , XXT (1 ) , YL ( I ) , 1 = 1 , ?) ,7S ) 

TF {luSP.EG.D or TC 210 

IF (ISYP. EQ. 0, ANC, KK , EC, 1 ) GO TC 14(1 

IF (KK.EG. (NJW (NJF) *1) ) 6C TO IFO 

IF (ISYP.ME.O.ANF.KK.EC. (NJW(NJP)-l ) ) GO TO 160 

IF (ISYM,NF.O.ANr.KK.EO,NjW (NJP) ) GO TO 14Q 

GO TO 210 

lAO XXL (?) =XXL ( 1 ) ♦ (XXL (?)-XXL ( 1 ) ) « ( YL (?)*YL ( 1 ) ♦RT-F J) / (YL (2)-YL ( 1 ) ) 
XXT (2)=XXT ( 1) * (XXT (2)-XXT (1) ) o (yL (2)-YL ( 1) *FT-Pu ) / (YL (2 ) - YL ( 1 ) ) 
IF (ISYF.EQ.O) GO TC 170 
150 XXL(1)=XL2 
XXT(1)=XT2 
GO TO 17P 

I'GO XXL (2)=XXL (1 ) * (XXL (2 )-XXL ( 1 ) ) « ( YL (?)-YL (1) -RT + fi J) / (YL (2) - YL (1 ) ) 
XXT {?)=XXT(] ) ♦ (XXT (2)-XXT ( 1 ) ) fl (YL ( ? ) - YL ( 1 ) -RT*R J ) / (YL (2)-YL (1) I 
170 XL2=XXL(2) 

XT2=XXT (?) 

IF (ISYF.EO.O.AND.KK.EO.I) go TO IPO 

IF (ISYP.NF.O.AKO.KK.EO, (NJW (NJP) -1 ) ) RO TP IPO 

YL(1)=YL? 

leo IF (ISYR.FQ.O) GC TC-190 

IF (KK.EO. (NJW (NJP) +1) ) GO TC ?10 
TF (KK.EO.NJW (KJP) ) YL ( 2) =YL ( 2) +PT-PJ 
IK (KK.EC, (KJVr(r JP)-1) ) YL (21 =YL (2 ) -RT + RJ 


GEC1740 

GE01750 

GE01760 

GE01770 

GE01780 

GE01790 

GEOlPOO 

GFOiein 

GEO1P20 

GE01R30 

GE01840 

GE018‘=0 

6E01P60 

6E01870 

GEOIPPO 

GEO109O 

6E01900 

6E0191O 

GE01920 

6F.01930 

GE01940 

GE01950 

6E01R60 

GE01970 

GF01980 

GEO1990 

GE0200f> 

6E02010 

GE02020 

GE02030 

GE02040 

GE02050 

GF02060 

6E0?070 

GEO20P0 

GEO2090 

GEO2100 

6E02110 

GE02120 

GE02130 

GE02140 

GEC2150 

GE02160 

GE02170 

GE02ieo 

GE02190 

GEC220n 

GEO2210 

GEO2P20 




GO TO POO 

GE02230 

190 

IF (KK.FG.l) Yl (2)=YL (2)*RT-Pd 

GEOP240 

200 

YL2=YL (2) 

GE02250 

210 

CONTINUF 

GE02260 


FM=F1 (KK) 

6E02270 


NSV-=M1 (KK) 

6E022P0 


DO 220 J=1*NSW 

GEO2290 


FJ=J 

GE02300 


CPSVsL ( J) =0,5« ( l.-CO? ( (2.0FJ-1 ,)«PI/(2.»FM)))«100, 

GE02310 


YCCN (J)=n,5* (l.-COS (FJ*PI/FP) ) 

GE02320 


SJ(J»KK)=S1N (FJttPI/FP) 

GE02330 

22 0 

continue 

GE02340 


IF (KK.FO.NC) PC TO 230 

6E02350 


CPSWL{1)=0. 

GE02360 


CPSViL(NSW)=100, 

GE02370 


GO TO 240 

GE02380 

230 

CPSWL (1)=0. 

GEC2390 

240 

IF (KK.EQ.NJWLL) ) FJWl (L#LU=IP/'NEL 

GE02400 


IF (KK,EC,NJW{NJP) ) Lr(L)=KL+l 

GE02410 


LRr (L-1 ) ONC+KK 

GE02420 


call PANEL (XXL»YL »yXT.CPrWL*CPcWLtN‘5W,IPANFL»LPANEL.KL«LR 

,SWO«7S)G£C2430 


IPANEL=LPANEL*1 

GE02440 


NCS = NCS*NSVI-1 

GE02450 


WICTH(KK)=YL(2)-YL (1) 

GE02460 


PPEAK(KK)=YL(1) 

GE02470 


IF (KK.EO.NJVi (LL ) ) PJWP (1 »LL ) =LPANFL 

GEP24P0 


IF (KK.NF.NC) C-C TC 250 

GF02490 


CHCPDT(L)=XXT(?)-XXL(P) 

GEO2‘=0n 


yCN (L) =XXL (?) 

GE02510 


hALFP=YL (2) 

6E02520 

2=C 

IF (KK.EO.NJW (LL) ) LL=LL+1 

GE02530 


IF <L.EC.3) go TC 300 

GE02540 


IF {L.EO.D LPAM=LPANEL 

6E02550 


IF (L.FC.?) LPAN?=LPANEL 

GE02560 


IF (NW(2),EO,0) go TO 260 

GE02570 


L=L + 1 

GEO25P0 


NCV*=NW (L ) 

GEO2590 


IF (L,EC.3,AhC.NW (3) .EO.O) GO TO PPO 

6E02600 


fiO TO 120 

GE0P610 

2<5C 

DO 270 I=2t3 

GFOP620 


DO 270 J=1*NFP 

GF02630 


MJWl (ItJ)=0 

6EC2640 

270 

MJW?(I,J)=0 

GE02650 


LPAN2=LPANEL 

GF02660 

• 

NCS=NCS*3 

GE02670 


GO TO 300 

GEC26P0 

2P0 

DO 290 1=1, NFP 

GFO2690 


MJWl (3,I)=0 

GE02700 

290 

PJVif (3.1)=0 

GEC27ro 






GEO27P0 


NCS=NCS+NCS/? 


GE02730 

300 

CO^TINUE 


GEC27A0 


NCS=NCS/3 


GE02750 


NCW=NW(1)+NW(?)+KW(3) 


GE02760 


VU=VMU 


GE02770 


IF riUSP.FG.l) CU=VFU 


GE02780 


VMU=CU 


6E02790 


PTJ=RJ 


GE02800 


7JT=7J*7S 


GEC2810 


IF (PT.GT,APS(7J) .^NP.KCOPF.FO.O) 7JT=RT«7 J/AB? ( 7J ) +7S 


GE02820 


IF (lUSP.EC.n GO TP 310 


GE02830 


AP2=AM1/ tVMU*SORT(TFVP) ) 


GE02840 


TF (AMZ,6T,0.9) WPITF (6t660) AP? 


GE02850 


IF (AM2.GT.0.91 AV?=0.9 


GE02860 

310 

COKTINUF 


GE02870 


LAST=LPANFL 


6E02,8PO 

C 



GF02890 

C 

tnHf TOTAL MJPBfR OF ?TREAVWI?E OFT 9FCTI0NS* MjPPEP OF JET CIPCUM- 

GE02900 

c 

FERFNTIAL strips PI^US OFF FOR A NOK’-CFNTFRFC JET <USE CCD 

NUMBERSGE0P910 

c 

) AKO PLUS ONF FCP A CFNTFPFD JFT tUSE EVFN NUPPEPS). AND 

M-wrfRS 

GEC2920 

c 

OF JFT VORTEX FLFPENTS ON EACH JFT SECTION' ««« 


GEO2930 

c 



GE0294n 


READ NNJ,NSJ» (NCJ(I) ,1 = 1 tNNJ) 


GE02950 ‘ 


WRITE (6,580) NN J,NSJ» (NCJ (I) ,I=1,NNJ) 


GE02960 


IF (KCODE.EO.O) CALL CIRCJ (ISYP,NSJ,Y) 


GE02970 


IF (ISYP.FO.O) NSJJ=NSJ/? 


GE02980 


IF (ISYf'.N'E.O) N'SJJ= (NSJ + n /? 


GEC2990 


N‘SYP = 1-ISYY 


GEC3000 


NSJ1=NSJJ-I 


6E03010 


FNJ=NSJJ 


GE03020 


CPSWL(1>=0. 


GE03030 


CPSWL(N'SJJ)=1. 


GEO30A0 


YCCN (1)=0,5* (1 .-COS (PI/FNjn 


GEOSO'^fl 


DO 3?0 T=2,NSJ1 


GEC3060 


FI = I 


GE03070 


CPSWL(T) =0,5« (l.-CCS{ (?.*FI-1 . )*PI/ (2.«FNJ) ) ) 


GEC30P0 

3?0 

yCCN(I>=0,5»{l.-COS{FI«PI/FNj) ) 


GE03090 


IFNTNrNC 


GEC3100 


JC=NCS«L 


6E03HO 


NJ1 = NN'J-I 


GE03120 


CO APO JJ=1,NNJ 


GE03130 


IF (IU‘=R.FO.n PC TO 370 


GE03140 

C 



GE031FO 

c 

COORDINATFS OF FOUNDING LINFS OF JET SECTICNS PROJECTED 

ON X-Y 

GE03160 

c 

PLANE «*« 


GEC3170 

c 



GEC3180 


READ [‘^,570) (XXL (I) tXXTcn ,YL (I) »T = 1,P) 


GF03190 


WRITF (F,'^70) (XXL(T),XXT(I) ,YL (I),I = 1,P) 


GEO320n 



ii (j i»j rv r> ri 


IP (ISYP.EO.O) GO TC 330 

XLisxxL n ) - (XXL (?) -XXL c in * (pt-ptj) / <yl O) -yl < n ) 

XT1=XXT{1)-(XXT(?) -XXT (1 ) ) fl (RT-PTJ) / (YL(2)-YL(1) ) 
330 XL?=XXL(1)+ (XXL(?)-XXL (1) ) » (PT+RTJ ) / ( YL ( ?) -YL ( 1 ) ) 

XT?=XxT(l)-» (XXT (?)-XXT (1) )*(RT + P7J)X (YL(2)-YL (1) ) 

IP (ISYP.PQ.O) 60 TC 340 
XXL(1J=XL1 
XXT(1)SXT1 
340 XXL(?)=XL2 
XXT (2) =XT? 

IP (ISYY.EH.O) GC TC 350 
YL(1)=YL (D-PT + RTJ 
350 YL (?)=YL (2)*RT-PTJ 

IP (KCODP.EO.O) PC TO 3P0 
XXL(4)=XXL(2) 

XXT(4)=XXT(2) 

XL (4)=YL (2) 

XXL(?)*XXL(1) 

XXT(?)=XXT(1) 

YL(2)=YL (1) 

XXL(3)=XXL(4) 

XXT(?)=XXT(4) 

YL (3)=YL (4) 

7L <1)=7S 
7L (2)=7R*ZS 
ZL (3)=ZR+7S 
7L (4)=ZS 
3f0 CO^TT^'tJF 
. GO TO 3PO 

C 

«**CCCRDINATES CF PPFAK POINTS OEPTNINP PFCTAN'GULPP JET 

usF configurations*** 

70 no 3P0 I=li4 

BEAT {5,<=70) XXL(I)»XXT(I) ,YL(I) ,7L(I) 

FO WRITF (6*570) XXL ( T ) *XXT ( I) * YL ( T ) * 7L ( I ) 

90 CONTINUE 
IT = JJ 
JJ1=JJ*L 
FNCJsNCj (JJ) 

NJsNCJ (JJ) 

NNJ=NJ»16 

IF (N'J. PT.fi) Nwj=NJ*P 
FNJ=NMJ 

no 400 J=1,NMJ 
FJ = J 

SC (J*JJ) =0,5* (1,-COS ( (?,*FJ-1.)*PI/(?.*FNJ) ) ) 

400 ST(J,JJ)=SIN((?,*FJ-1.)»Pi/(2,*FNJ)) 

DO 410 J=1*NJ 


GE03210 
Ge03220 
GE03230 
GE03240 
GEC3P50 
GE03260 
6EC3270 
GE03280 
GEC329P 
6E03300 
GEO3310 
GEO3320 
GE03330 
6EO3340 
6E03350 
6E033fiO 
6EO3370 
GE033PO 
6E03390 
6E0340n 
GF03410 
GEC34P0 
GEO3430 
GE0344 0 
GE03450 
GE034fi0 
GE03470 
GF034P0 
GE03490 
GEC3500 
SECTIONS FOR GF03510 
GEC3520 
GE03530 
GE03540 
GEC3550 
GE03560 
GE03570 
6E035P0 
GF03590 
GE03600 
GE03fi] 0 
GE03620 
GEC3630 
GEC3640 
6E03fi50 
GEC366n 
GE03670 
GE036PO 
GE03690 



r>or>r>or>r>o<^ rtr»or>r> 


OBiGiNAL Page US 
PS £OOB QUALITY 


410 


FJ=d 

CPCWL (J) =0.5«(1.-COS f (2,«Fvl-l,)*PI/ (?,»FNCJn ) 
SN(J,JJl)=2,«SOPT(CPCWL(J)*{l.-rPCWL(vJ) ) ) 


GEO370O 

GE03710 

GE03720 


CALL JSHAPE 


CALL RESHAP 


(XXLtXXT* YL»YJ,ZJ7tF7.CPCi(L»IPANEL»NJ»GE03730 

GE03740 

(XXL»XXT»VL.Zl ,CPChL,CPSWL,IPANEL»NJ,dGE037'50 

GE037GO 


IF (KCCCE.EQ.O) 

IJC.lSYt"! 

IF {KCCDE.EQ.D 
1C»II,NSYM) 

MJJ (JJ) =LAST 
420 IPANFL=LAST+1 

SDF = XXT{1)-XXU1) 

IF (TUSP.EC.n TH = ZL (3)-ZL (4) 

YCO^ (2‘;)=7L(4)-7CP(1) 

YCCK (241 =USB 
C(J)=CFU 

IF (KCODE.EO.O) YCCN(25)=1. 

IF (KCODE.EQ.l) CALL RECTJ ( ISYF , ^ c J, Y) 

jpakel=last-lpanfl 

LTCTAL=LAST*JPAKEL 

««*NUFeEP OF SECTIONS IN WHICH THE ClhFDRAL I? TO PE DEFINED ♦ 

dihedral in CFG., AND T»-F CUTPOAPD Y COCRDINATF OF THE SECTION . 

» MDG=1 if therf is dihedral, =0, otherwise « 

READ C;,580> NDG.HDG 
WRITE (H,5P0l NDG.HDG 
READ ('^,8701 (SNG(I) ,YG(1) »I = l,NrG) 

WRITE (f,570l rSNG (I) ,YP{I) ,1 = 1 ,NCG) 

DO 430 1=1, NDG 

30 SN‘C(I)=SIN(SNG{I)«PI/1P0.) 

lwf=lpanfl 

LWEd=LTCTAL 

ntl=o 

KW=0 
WKN=0, 

RDX=0, 

«*« KF = 1 IF THE FU«:ELAGE IS PPFSENT, =0 OTHERWISE. NT=NUHPER OF 

EOLPIER TFPHS EXCLUDING THE ZEPC'-CROFR TERH. NCUH=NUH8EP CF CIR- 
CUHFERENTIAL LCCATICNS AT WHICH PRESSURE LOADING IS TO PE 
, NF=NUHPER CF CCNTfiOL STATION^ ALONG THF FUSELAGE AXIS 
« KW = NUHPFP of SEGHFNTS INTC which THF FUSELAGE AXIS CIVIDFD, 

nkfsnuhpfr of singularity flevfnts in each seghfnt » 

« FOP HICWING CONFIGURATICKc, USF FVFN NUHPFPS FCR NCL'm « 


DO 440 1=1, P 
NKF(I)=0. 

440 XASni=0, 

XAS (61 =0. 
READ (‘=.PP01 


KF,NT,NCUH,NF,KW, (NKF (II ,1=1 ,KW1 


GE0377(» 
GE037P0 
GE03790 
GEO30OO 
GEO3G10 
GEO3820 
GE03830 
GE03840 
GE03850 
GEO3860 
GE03P70 
6E038P0 
6E03P90 
GE03900 
GE03910 
GE03920 
6E03930 
6E03940 
GE03950 
GE03960 
GEO3970 
GEO39P0 
GE03990 
GE0400(1 
GE04010 
GE04020 
GEC403n 
GE04040 
GE04050 
GE04060 
GE04070 
CCMPUTFDGE040P0 
6E04090 
GE04100 
GE04110 
6EC4120 
GE04130 
GE04140 
GE04150 
GEO4160 
GE04170 
GEO41P0 



WRITF, (F.SSO) KF, NF-»KW» tKKF <H .T = 1,KW) 

TF (KF.EQ.O) GO TO 500 

ntl=nt«nf 

KW1=KW*1 

««« X-COORDIMATE? DEFINING IFF FUSELAGE SFGwenTS » INCLUC ING TFE NOSE 

Atiin YlJ? *r a Y I ^ 1 9 _ A ft- ¥ 1 _>C d<^C*l ft- fjf 


GE04190 
GE04200 
GE04210 
GE04220 
GE04230 
GE0424 0 


I ut-rirwiiw jrr c rg t t 1 v. L U u J. ry \3 ir't i>U3C vaCU^cAO 

the tail* FUSINO=n, IF THE FUSELAGE GECHETRY IS TO PE nEFINEO GE04250 

\/tT^AI 1\/ Tfc A4n -vr^rr. 


analytically in functions FUR(X) and SLOP(X), =1, CTHEPVdSE', 
FUSNO=NUMflER CF FUSELAGE STATICN.S TO BE INPUT TC DEFINE THE 
SHAPE TF FUSINC=I. « =0. OTHERWISE ««« 

Xl=PODY STATION IN FRACTION OF PCDY LENGTH AT WHICH THE RATF OF 
CHANGE CF CROSS-SECTIONAL AREA WITH PODY LENGTH FIRST REACHES 
HAXIHUH NEGATIVE VALUE, SEE DATCCH * 

XJF=1. IF THE LOWER INFOARD EDGF OF THE USF oET IS ON THE FUSEL 
« SO, OTHERWISE « 


RWI5E', GE04260 

E THE GE04270 

GE04280 
E RATF OF GE042S0 

REACHES GE04300 

6E04310 
THE FUSELAOFGEO4320 
GF04330 


READ {S»570) ( X AS ( I) » 1 = 1 ,KW 1 ) . F'JSIND »FUSNO , X 1 , X JF 
WRITE (6.570) ( X AS ( I) ♦ 1 = 1 , KWl ) ,Fl SIND ,FU5N0 , XI . X JF 
IF (XI, LT, 0,01) Xl=), 

IFRsFUSINO 
IFN = FUSN'0 

«**IF FUSlNOsl,. READ IN THF FUSFLAGE X-STATICNS AND THF RADII, 
OTHFPWISE, SKIP 
IF (IFR,EQ.O) GO TO 450 
READ (=.570) (XFF(I),I=1,IFN) 

READ (5,S70) (PFF ( I ) , Tsi , IFN) 

WRITF (6,570) < XFF ( I ) , 1=1 , IFN ) 

WRITE (6,570) (PFF ( I ) , 1=1 , IFN ) 

CALL SPLINF (IFN,XFF,RFF ,flAF,PPF ,CCF,ODF) 

) CONTINUE 


XLEF=xAS (1) 

XTEF=XAS (KWl) 

IF (YN (2,1 ) .LE,n,0l ) 
IF (2CP (2) ,GE.O,) TH 
IF (2CP (2) ,LT,0,) TH 
IF (ZCP(2) ,LT,0,) C-0 


IF (2CP (2) ,GE.O,) TH1sPI/2,_atAN (70 
IF (2CP (2) ,LT,0,) TH1sPI/?.+atAN (AP 
IF (ZCP(2) ,LT,0,) C-O’TO 460 
IF (APS(2CP(2) ) ,LE, 0.001) GO TO 470 
F1sTH1/P1«FLCAT (NCUH) 

NH1=F1 

IF (NH1.LT.2) NH1=2 
GO TO 490 

TH2SDI-TH1 

F2=7H2/PI«FLCAT(NCtM) 

NH2=F? 

IF (NH2.LT.2) NH?=2 
NH1=NCL‘P-NH2 


1) 60 TO 400 

TH1sPI/2,_atAN (ZOP (?) /YN(?,1 ) ) 
TH1sPI/?.+atAN (APS (7CP (?) > /YN (2, 1) ) 
GO’ TO 460 


470 


GO TO 490 
NHlsNCUH/2 
GO TO 490 


6E04650 

6EC4660 

GEC4670 



4P0 


490 


SOO 


■10 


:2C 


NH1 = 0 

ORIGINAL PAGE I& 

GE046P.0 

TH1=0, 

OF POOR QUAIOT 

6E04690 

COMTNUr 


GE04700 

SNP (5,20)=TH1 


GE04710 

SNP(5,19)=NH1 


GE04720 

XTE (50)=XJF 


GE04730 

CALL GFOFl-S (RCX) 


GE04740 

LWF=LPANEL*NTL 


GE04750 

LWFO=LTOTAL+KTL 


GE04760 

WK^=-fl,^^PI«ROX 


GE04770 

CONTINUF 


6E047PO 

WRITE (6,590) PALFSW,CREF 


GE04790 

WRITE (6,630) 


GE04800 

WRITE (6,5fl0) LPAKEL, JPAKFL ,LWFj 


GE04fil0 

IF (lUSP.EO.l) GO TC 510 


GE04P20 

WRITF (6,750) 


GE04P30 

IF (KCCDE.F(3.0) WRITE (6.770) 


GEO4P40 

IF (KCCDE.EQ.l) WRITE (6,7P0) 


GE04P50 

IF (KCCDE.EQ.l) WRITE (6,790) 


GEC4P60 

WRITE (6,750) 


GE04870 

WRITF (6,730) XFQUI 


GE04PPO 

WRITF (6,740) RFCLT 


GE04890 

WRITF (6,760) V^l 


GE04900 

COATIMIF 


GE04910 

IF (IC4V.NE.1) GC TC 520 


GE04920 

WRITF (6,670) 


GE04930 

WRITF (F,690) (XT(1,I) ,1 = 1 ,IP) 


GE04940 

WRITF (6,700) (7C(1 ,1) ,I = 1,IH) 


GE04950 

WRITE (6.6P0) 


6E04960 

WRITE (6,690) ( XT ( 2 , I ) » 1 = 1 , I V ) 


GE04970 

WRITF (6,700) (7C(2,I) ,I = 1,IK) 


GEC49P0 

CAKLEP=7CR(0.) 


GE04990 

CAKTFR=7CR (1 .) 


GE05000 

CAWLFT=7CT (0.) 


6E05010 

CAKTET = 7CT (1 ,) 


GEO502O 

C06TINUE 


GE05030 

WRITF (6,640) 


GE05040 

WRITF (6,710) 


GEOBDSn 

WRITF (6,600) (XK (1,1 > ,XN ( 1,2) ,YS (1,1) 

,YN(I.2) ,7N(I,1) ,7N (1,2) ,I=!GE05n60 


(XCP (I) ,YCP (I) »7rp (T) ,I=1,LAST5 


1»LA«T) 

WRITF (f,650) 

WRITE (6,720) 

WRITE (6,600) 

IF (KCCDE.EO.l) GO TO 540 
IF (ISYf'.FG.O) GC TC 530 
FN2= (NSJ-1)/?,1 
NJh= (NSJ-D/2 + ? 

AN6=PI/(2.*FN?) 

FAf= (5IN (3.*A^G)-SI^ (AN6) /CO? ( ANP) ) / ( 1 .-COS ( 3, « ANP ) ) 


GE05070 
GEO50P0 
GE05090 
GE05100 
GE05110 
GE05120 
GEC5130 
GE0514 0 
GEC5150 
GE05160 



PHT = Pl/?,-ATflN(F/iC) 

K‘Jhl=NvlH-’l 

NJI-2=NJH4l 

Y (2.?)=SIN (PPI) 

Y(A,2)=-C0S(PHI) 

Yf2»NJHl)=Y(3,?) 

Y (4,NUH1)=-Y (4,2) 

Y(?,K'JH2)=-Y(3,2) 

Y{4,NJH2)=Y(4,2) 

Y(3,NSJn='-Y(3,2) 

Y(4,NSJ1)=-Y(4.2) 

GO TO =40 

53(1 F-K'2=NSJ/2 

NJPsNSJ/? 

ANGJ = ! .-0,5*n.-CCS(PI/ (2,«FNP) ) ) 

ANG3 = 1 ,-0.S*(l.-CCF (3,«PI / (?,«FN2) ) ) 

AK>ri=A7AN (SORT ( 1 .-ANG1«AKG1 ) /A^G1 ) 

ANG3S4TAN (SORT (1 ,-ANG3«ANG3 ) /AKG3 ) 

FAC= (SIN (ANG3}-SI^ ( ANGl ) /CCS ( ANGl ) )/{ 1 ,-COS (AN63 ) ) 
PHI=PI/2.-ATAN (FAC) 

NJhl=NJH-l 

K'Jf-2=NSJl 

Y (3,NJH)=SIN (PPI) 

Y(4,MJH1 )=r0S(PHn 
Y{3,^'JH2)=-Y(3,K^P1) 

Y(4,NJH?)=y (A,AJH) 

540 CC^TT^'liE 

FN J=^CJ (NKJ) 

NPJ = ^CJ (NK'J) 

DO 550 J=1,NPJ 
FJ=J 

550 PC I ( J) =SIN (FJ«PT/FN J) 

PFTA]=SGRT ( I ,-Ami«aM > 

PFTA?=SGRT ( 1 .-A*/2«AP'2) 

Pl=RFTAl«fiFTAl 
R?=eFTA2»PETA2 
CO 550 KK=l,NCc 

XLI. (KK)=ALP* (TW<=TP4TwlST<tYLE (»<K ) /H ALFG ) «P 1/ IPO . 
T=XLL (KK) 

560 XTT(KK)=STN(T)/CCS(T) 

YCN (6)=X1 
7J=2J4?S 
PF7UPM 
C 

570 FORNAT (P(F10,5)) 

5fi0 FOPPAT (e(6X,l4)) 

590 FORPAT (10X,PPHALF SW= ,E 1 2 , i o X ,5HCREFs: ,F 1 2 ,5 ) 

600 FORPAT (6(F10,5)) 

610 FPRPAT (2(6X,I4) ,7F10.5) 


6E05170 
6E051S0 
GE051.90 
6E05200 
GE05210 
GE05220 
GE05230 
GE05240 
GE052SO 
GEOS260 
GE05270 
GE05280 
GE05290 
GEC5300 
GEOSSln 
GE05320 
GE05330 
6E05340 
GE0535P 
6EC536 0 
GE05370 
GE053P0 
6EC5390 
GE05400 
GFO5410 
GEO5420 
GE05430 
GEC54 4 0 
GEC5450 
GE05460 
GE05470 
GE054PO 
GE054RO 
GE05500 
GE05510 
GEO5520 
GE05530 
GE05P40 
GE05550 
GEO5560 
GEC5570 
GE05580 
GE05590 
GE05600 
GE0561 0 
6E05620 
GE05630 
GEC5640 
GEC5650 



620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 


790 


UHO.IOHIKPUT TATA) 

(lH0.19HLPANFL»JPANFL»LViFJ=) 

( 1HO»36HVORTEX FLES*EM E^CPOI^!T COOPniNATES = ) 
UHOtceHCCNTROL POINT CC0PCINATE5=) 
(1H0»42 HViAPNIN6. THE EGUIVALFNT JET VACH NUMBER 
BEEN SET TO 0,9 IN THE COMPUTATION) 


6E05660 

GE05670 

GE05660 

GE05690 

IS,F10.5,41GE05700 

GE05710 


FOR 

FOR 


the 

THE 


ROOT SECTION <»«*) 
TIP SECTION «««) 


(/45H*«o CAMBER CPOINATFS 
CAMBER ORTINATF': 

(/7X,3HX/C,11F10.5> 
t/TX.SHXXC.llFlO.S) 

(/4X,2HX1 ,8X,2HX2,8X,2FYl.eX,2HY2,8X,2H21 »6X.2H22) 
(/4X,3HXCP»7X.3HYCP»7X»3H2CP,7X,3HXCP,7X*3HYCP,7X.3H2CP) 


GF05720 

GE05730 

GE05740 

GE05750 

GE05760 

GE05770 


FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
IHIT HAS 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 

FORMAT 
FORMAT 
U 

FORMAT 
110.5) 

FORMAT 
IRACTION 

FORMAT (/20X,43FA RFCTAN'GUL AR JET WITH LATERAL EXTENT EGUAL/20X * 42GE05P70 
IHTC THE FOUIVALFNT JET DIAMETER IS USFO FOP/POX » 23HTNTER ACT ION COMGEO58P0 
PPUTATICN) GEO'5890 

FORMAT f/20X,51HNOTE. CHECK WHETHER THF WING IS IMMERSED IN THE JFGE05900 
IT) GE05910 

FNC GEO5920- 


(1H0*46HTHF EOUIVALEM JET PROPERTIFS ARE EVALUATED AT , F 1 0 .GE05780 

GE05790 

(1H0,28HTHF equivalent JET RADIUS IS.F10.5) GEO5P00 

(/P0X«50HXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXGEO5P10 

GE05820 

(1H0»49HTHE velocity PATIO OF THE EQUIVALENT JET, VO/V J, IS ♦F6E05830 

GE05840 

</20X,3PHAN EQUIVALENT CIRCULAR JET IS USED FOR/POX ,23HINTEGE05850 
COMPUTATICN) GE05860 


SUPPOUTINE GEGFUS (RDX) GEF 

COMMON /FUS/ XF (20) ,XCF (?fl) ,RF (?0) ,SNP (5 , PO ) , XLEF , XTEF .WARD (20) .NCGEF 

1UM,NF',NT,CSF(5,10) ,XAS(6) ,NKF( = ),F0,F10.KF,NTL ' GEF 

PI = 3. 14159265 GEF 

S=XTEF-XLEF GEF 

TH1=SNP(5,P0) . GEF 

NH1=SNP (5, 19) GEF 

PDX=SLOP (XLEF) GEF 

NF1=NF*1 ' GEF 

FNTsNT GEF 

DO 30 1=1, NT GEF 

FI=I GEF 

DO 30 K=1,NCLM GEF 

IF (NHl.NE.O.ANO.K.LE.NHl ) GO TO 10 GEF 

FK=K-NH1 GEF 

FCL‘M=NCUM-NH1 GEF 


PP=PI-TH1 
TP=TH1 
GO TO PO 
FK=K 

fcum=nhi 

PP=TH1 


GEF 

GEF 

GEF 

GEF 

GEF 

GEF 


10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

IPO 

190 

200 

210 

2P0 




TP = 0. 

6EF 

230 

20 

CONTINUE 

6EF 

240 


TA= (2,»FK-U joPP/ (P.**FCUM) +TP 

6EF 

250 

30 

CSF (I,K)=COS«FI«TA) 

GEF 

260 


IK«0 

6EF 

270 


FNF=NKF (1 ) 

GEF 

260 


X0=XAS(1 ) 

GEF 

290 


N2=l 

GEF 

300 


N1=NKF(1) 

GEF 

310 


SL=XASf2)-XAS(l ) 

GEF 

320 


DO 40 1=1, NF 

GEF 

330 


1 

II 

GEF 

340 


FI=t' 

GEF 

350 


XF (I )sXO + 0.5«SL<» <1.-C0F{ (2,*F!-1 ,)«PI/ (?.«FKFn ) 

GEF 

360 


xrF<I)=X0*0.5»SL«(l.-COS{FI«Pl/FNF) ) 

GEF 

370 


SNP{N2,M)=SIN( (?.«FI-l.)»PI/(?.itFKF) ) 

GEF 

380 


XC=XCF(I) 

GEF 

390 


PF(1)=FLP(XC) 

GEF 

400 


IF (I.NE.M) GO TO 40 

GEF 

410 


N2=N2+1 

GEF 

420 


1K=M 

6FF 

430 


N1 = M*NKF {N2) 

GEF 

440 


SL = XA'G{N2*1)-XA^{K2) 

GEF 

450 


FNF=NKF (N2) 

GEF 

460 


Xn=XAS(N2) 

GEF 

470 

40 

COMINUF 

GEF 

480 


PETLPN 

GEF 

490 


ENC 

GEF 

500- 


SUPPOUTINE SPLINE (N , X , Y , A ,B ,C ,P I 

SPL 

10 


DIVFNSICN S(lll), F(21), CA(?1) 

SPL 

20 


DIMENSION A(l), PH), C(l), D(l), X(l), YH) 

SPL 

30 


N1=N*1 

SPL 

40 


N1=N-1 

SPL 

50 


H(M)=0, 

SPL 

60 


H (1)=X (3»-X (2) 

SPL 

70 


H(2)=-X (3)-»X(l) 

SPL 

80 


H(3)=X(2)-X(1) 

SPL 

90 


DO 10 X=4,N 

SPL 

100 

10 

H{K)=0, 

SPL 

110 


no 20 K=1,N 

SPL 

120 

20 

S(K>=-P(K*1)/H(1) 

SPL 

130 


NJ=N-1 

SPL 

140 


00 70 1=2, N 

SPL 

150 


IF (I.EC.N) GO TC 30 

SPL 

160 


H{Ni)=-fc,«((Y(i + i)-Y(i))/(x{i+i)-x(in-(Y(n-Y(i-in/(xa> 

-X (l-in SPL 

170 


1) 

SPL 

180 


60 TO 40 

SPL 

190 

30 

H(M)=0. 

SPL 

200 

40 

no 60 U= 1 ,N 

SPL 

210 



FQ 

60 


70 


PO 


C 


10 


eO 


H{0) =0, 




SPL 

220 

IF (I.FQ.N) GO TO 50 




SPL 

230 

IF (J.LT. (I-l) .OP.J.GT. (I + l) ) 60 TO 60 




SPL 

240 

H(I-n=X(I)->f (I-n 




SPL 

250 

H(i) =?,« (X {i + u-x (i-in 




SPL 

260 

H(I*1)=X(I+1)-X(I) 




SPL 

270 

60 TO 60 




SPL 

2P0 

H(K-?)=X (N)-X (K-1) 




SPL 

290 

H (h-1) =-X (N> +X (N-?) 




SPL 

300 

H(M=X (N-l)-X (N-2) 




SPL 

310 

CO^TINbF 




SPL 

320 

II = I 




SPL 

330 

CALL VWSEON 




SPL 

340 





SPL 

350 

CONTINUE 




SPL 

360 

DO PO I=1»N1 




SPL 

370 

A{i) = (S(i + i)-snn/<6,»(X(i + i)-x{in) 




SPL 

360 

B(I)=sm/2. 




SPL 

390 

C(I)=(Y{I*l)-Y(I))/<X(I*l)-X(n)-(X(I*l)-X{I))*(2.*S(I)+StI*l))/6 

.SPL 

400 

D(i)=Ym 




SPL 

410 

RETURN 




SPL 

420 

FNC 




SPL 

430 

SUBROUTINE RE5HAP ( XXL .XXT * YL » 7L .CPCWL ,CPSWL ♦ TFANEL t N J , JC , J J , 

NSYH)RSP 

10 

TO DEFINE THE LOCATIONS OF VORTEX AND CONTRCL FCINTS ON 

HECT. 

JETSRSP 

20 

OIHFNSION XXLd). YL(1). XXTtll, 7L(1). CPCWL(l) 

, CPSWL(l) 


RSP 

30 

COHPON /SCHFHE/ r(2).X(10.41),Y(10,41) ,SLOPF (15 ) ,XL (2*15) *XTT (41) 

,RSP 

40 

IXLL (41) 




RSP 

50 

COHHON /GEOM/ H ALF'^h , XCP ( POO ) , YCP (200 ) *7CP (PO 0 ) » 

XLE (50) 

,YLE (50) .XTRSP 

60 

1E{50)»PSI(20)*CH(95)9XV(?00).YV(100)*SN(P,P),XM200»2)« 

YN (200 

.2) . 

2RSP 

70 

2N (200.2) .WIDTH (P) .YCON (?^) .SWEEP (SO) ,HALFP.SJ(21 

.6) .EX (95.2) . 

TX (95RSP 

SO 

3. 2), SC (160. 5), SI (160, 5). LC (3) 




RSP 

90 

COHHON /CONST/ NCS . NCW ,M (fl ) .NS J ,NC J (5 ) , L AST .HoW 1 ( 3 ,5 ) , 

HJttP (3 

.5) . 

JRSP 

100 

IPANEL.MJJ (5) .NW (3) .NNJ.NJP 




RSP 

no 

PI=3. 14159265 




RSP 

120 

IF (NSYH.EC.O) NSJJ=(NSJ+l)/2 




RSP 

130 

IF (NSYP.NE.O) NSJJ=NSJ/P 




RSP 

140 

NSJ1=NSJJ"1 




RSP 

150 

DO 10 Jsl.NJ 




RSP 

160 

FJ=J 




RSP 

170 

FNJ=NJ 




RSP 

ISO 

PS I {J)=O.S«(1,-C05(FJ«PI/FNJ) ) 




RSP 

190 

DO 170 IS=1.4 




RSP 

200 

IF (NSYH.EO.l .AND.IS.FO.) ) 60 TO 170 




RSP 

210 

IF (IS. EQ, 4) 60 TO 20 




RSP 

220 

K1 = IS 




RSP 

230 

K2=IS+1 




RSP 

240 

GO TO 30 




RSP 

250 

Kl = l 




RSP 

260 

K?=4 




RSP 

270 


\ 


V 



30 continue 

SPAK'aYL(K2)-YL(Kl) 

XDIFaXXL (K2)-XXL (Kl) 

DO 40 1=1,2 
II=I*K1-1 

IF «1S.EQ.4.4ND.I.EG.2) II=4 
C(I)=XXT(II)-XXL{II) 

DO 40 J=1,NJ 

40 XL {i,j)=xxLni)+cPcwL(j)«c m 

TF {ABS(SPAN) ,LF, 0,001) GO TO 70 
DO J = 1»NJ 

•=0 SLOPEfJ) = (XL{2,J)-XL{l,J) )ySPAN 

DO 60 K=1,NSJJ 
YKsCPSWL (K>-*SP4N 
DO 60 J=1,NJ 
Y(J,K)=YK+YL(K1) 

X (J,(f)=XL (l,J)+SLOPE (J)*{Y(J,K)-YL (Kl) ) 

60 continue 

NS=NSJ1 

70 IF (AP?(SPAN) .UF. 0,001) NS=1 

DO 160 K=1,NS 
YC=YC0N (K) 

IF (ARE (SPAN) ,LF. 0.001 ) yC = 0,5 
KK=JC+K 

CH(KK)=C(1)-{C{1)-C(2) )«YC 

IF (APS (*;PAN) ,LE, 0.001 ) GO TO PO 

YC1=CPSWL(K) 

YC2=C0SWL (K+1) 

GO TO SC 
PO YC1=0. 

YC? = 1 . 

SO CONTINUE 

FX (KK,1 >=XXL (Kl) ♦XDIFOYCI 
EX (KK,2)=XXL(K1 >+xOIF«YC2 
TX(KK,1)=XXT(K1)4.(XXT(K?)-XXT(K1)) oYCl 
TX (KK,2)=XXT (Kl)+ (XXT (K2)-XXT (Kl ) ) «YC2 
00 160 J=1,NJ 

NPANEL= (K-1) «NJ4J-1*IPANFL 
NPAM=NPANEL-1 
DO 130 1=1,2 
KT1=K+I-1 

IF (ARS(SPAN).LF. 0,001) GO TO 100 

XI = X (J.KIl ) 

Y1=Y(J,KI1) 

IF (J.NE.l) GO TO 110 

7Z-2L (Kl)-» (7L(K?)-7L (Kl) )*(y 1-YL (Kl ) )/SPAN 
XX = XDIF*(Y1-YL (Kl) )/SPAN + XXL (Kl) 

GO TO 120 
IZN=K1 


RSP 2P0 
RSP 2S0 
RSP 300 
RSP 310 
RSP 320 
RSP 330 
RSP 340 
RSP 350 
RSP 360 
RSP 370 
RSP 380 
RSP 3S0 
RSP 400 
RSP 410 
RSP 420 
RSP 430 
RSP 440 
RSP 450 
RSP 460 
RSP 470 
RSP 480 
RSP 490 
RSP 500 
RSP 510 
RSP s?n 
RSP 530 
RSP 540 
RSP 550 
RSP 560 
RSP 570 
RSP 580 
RSP 590 
RSP 600 
RSP 610 
RSP 620 
RSP 630 
RSP 640 
RSP 650 
RSP 660 
RSP 670 
RSP 680 
RSP 690 
RSP 700 
RSP 710 
RSP 720 
RSP 730 
RSP 740 
PSP 750 
PSP 76 0 ' 


‘10 0 



ORIGINAL PAGE iSf 
OP POOR QUALCfS 


no 

1?0 

no 

HO 

no 

no 

170 

c 


TC IT cn T-7K-k5 iXlVlJUi RSP 770 

’ OF POOR QUALCfS RSp 7fio 

Y1 = YL(KH III 

IF (J.NE.l) GO TC 110 oT« 

ZZ=ZL«IZN1 III 

xx^xxLdZN) III 

Z7=ZN<NPAM.I, HI 

XX»XN(NPAM,I) III 

XN<KPANEL»I) =X1 III 

yn(kpanfLtI)=yi III 

ZN(KPANELtI)=Z7 III 

COMINUF III 

X0=XDIF«YC + XXL (Kl) 

XCP (NPANEL)=XD+CH (KK)«PSI (J) ’1” 

YrP(NPANEU=YC«SPAN + YUKl) 

TF (ARS (SPAN) .LE.O ,001) GO TC 140 ”=P 930 

7C=ZN(NPANELt 1 )♦ (2^(^PA^FLTl>-7^ (NPANEL*?) ) « (YCP (NPANED-YN (NPANELRSP 94 0 
l«in/{YN (NPANEL.l)-YN (NPAKELtZ) ) ”SP 9R0 

XC=XN(NPANELt1)+SLCPE<J)«(YCP(NPANFU-YN«NPANEL,D) RSP 960 

SO TO 150 111 

7C=0.5«C2N(NPANFL»l»>7MNPANFLT?n 960 

XC=0,5«{XN(NPANELt1)*XN(NPANEL»2) ) 

ZCP (NPANEL)=ZC olnJn?!! 

XVnPANEL)=XC 

CONTINl'E 

IPAKEL=NPANFL*1 

LAST=N'PANEL d1ot«c2 

RSP1050 

continue llllHl 

llpllll 

SUPPOUTINE panel (XXL»YL.XXTtCPCWL«CPSWL.NSV(»IFANEL»LPANEL»KK»LP»SPNL 10 
IHPtZS) PNL 20 

TO DEFINE THE LOCATIONS OF VORTEX AND CONTROL POINTS ON TPE WING PNL 30 

OIMENSTCN XXLH) Yl(l) . XXT(l), CPCWL(l), COSWLtl) PNL ^0 

DI^^ENSION SWPCE^lE) PNL s-0 

CONNON /SCHEME/ C (2 ) ♦ X ( 1 0 »4 1 ) » Y < 1 0 »4 1 ) tSLCPE ( 15 ) * XL (2 » 15 ) t XTT '41 ) ,PNL 60 
1XLH41) 

CONKON /GEON7 H ALFSW ♦ XCP ( 200 ) ♦ YCP ( 200 ) , ZCP ( 20 0 ) ♦ XLE (50 ) t YLE (SO ) « XTPNL PO 
1E('=0)»PSI(20)tCH(95)tXV(?00)»YV(100)*SN(8,P),XN(200»2)»YN(200»2) tZPNL 9 0 

2N (200.2) tWIDTH <R) »YCON( 25) .SWEEP (5 0) .HALFB.SJ (21 .P) .EX (95.2) .TX (95PNL 100 
3.2) » SC ( 160 .5) »SI ( 160 .5) ,LC (3) ^NL 110 

COPPON /CONST/ NCS,NCW,P1(R).NSJ.NCJ(5),LAST.MJW1(3.5).HoW2(3.5) ,JPNL 120 
1PANEL.NvJJ<5) .NW (3) .NNJ.NJP PNL 

Nswi=Nsi-r ^50 

in ? PNL 160 

DO 10 1-1.2 PNL 170 

C(I)=XXT(I)-XXL(1) ^ ^ ‘ ” 


RSP 790 
RSP 800 
RSP 810 
RSP 820 
RSP 830 
RSP 840 
RSP 850 
RSP 860 
RSP 870 
RSP 880 
RSP 890 
RSP 900 
RSP 910 
RSP 920 
RSP 930 


RSP 950 
RSP 960 
RSP 970 
RSP 980 



10 


DO 10 Jsl.NCW 


PNL 

IBO 

XLn»J)=XXU (D+CPfWL (J)*C (I) /lOO. 


pnl 

190 

SPA^=YL(2)-YL^) 


PNL 

200 

DO ?0 J=ltNCw 


PNL 

210 

PSI (J)=0.5»(1.-CCS (FLO/iT /FLOAT (NCVO ) ) 


PNL 

220 

SLOPE { J) = (XH2,J). XL (l»0n/SPA^ 


PNL 

230 

SWP(J,LR)=ATAN(SLOPE (J) ) 


•PNL 

240 

DO 30 K=1.NSW 


PNL 

250 

YK=CPSWL (K) »SPAN/100, 


PNL 

260 

00 30 J=1«NCV< 


PNL 

270 

Y(J,K)=YK+YL(1) 


PNL 

2P0 

X (JtK)=XL(l.J)+SLCPE (J>«<Y(J,K)-YL (in 


PNL 

290 

CONTINUE 


PNL 

300 

XLL{1)=XXL{1) 


PNL 

310 

XTTai=XXT(l) 


PNL 

320 

DO AO Is2,NSW 


PNL 

330 

XLL (I)=XLL (I-i> + (XXL<?)-XXL(l) )«(Yn,I)-Y(l.I- 

1) )/SPAN 

PNL 

340 

XTT (I)=XTT (I-D+ (XXT (2)-XXT(l) )* (Y(l»n-Y(l.I- 

1) )/SPAN 

PNL 

350 

no 60 KaltNSWl 


PNL 

360 

KK=NCS*K 


PNL 

370 

YLE (KK)=YC0N {K)«SPAN*YL(1 ) 


PNL 

3P0 

XLE (KK)sXLL(K) ♦ (XLL(K+1)-XLL (K))« (YLE (KK) -Y (1, 

K) )/(Y(l,K*] )-Y(l,K)PNL 

390 

1) 


PNL 

400 

XTE (KK)aXTT(K)4.(XTT(K*l)-XTT (K) ) « ( YLE (KK ) -Y ( 1 . 

K))/(Y(1,K+1)-Y(1,K)PNL 

410 

1) 


PNL 

420 

CH(KK)=XTE(KK)-XLE(KK) 


PNL 

430 

FX (KK»l )=XXL (1) + (XXL (2) -XXL (1 ) ) «CPSWL (K) /lOO. 


PNL 

440 

EX (KK«2) =XXL (1) ♦ (XXL (21-XXL (1) ) «CFSWL ( K + 1 ) /I 00 

• 

PNL 

450 

TX(KK,1)=XXT(1) + (XXT(2)-XXT(1) )«CPSWL (K)/100. 


PNL 

460 

TX (KK,2)=XXT(1) + (XXT(2)-XXT(1 ) )«CPSWL (K+1) /lOO 

• 

PNL 

470 

TANG=(XXL(2)-XXL (in/SPAM 


PNL 

460 

SWEEP(KK)=ATAN(TANP) 


F>NL 

490 

DO 60 J = 1*NCV» 


PNL 

500 

NPANEL=(K-1) «NCW+J-1+1PANEL 


PNL 

510 

DO 50 1=1,2 


PNL 

520 

KI1=K*I-1 


PNL 

530 

XN(NPANEL,I)=X(J,Kin 


PNL 

540 

YN(NPANFL,I)=Y(U,KI1» 


PNL 

550 

ZN (NPANEL,I)=ZS 


PNL 

560 

CONTINUE 


PNL 

570 

XCP (NPANEL)aXLE (KK) *PSI (J) «CP(KK) 


PNL 

560 

YCP (NPANEL)=YLF (KK) 


PNL 

590 

ZCP (NPANEL)=ZS 


PNL 

600 

XV (NPANEL)=XLE(KK) +CPCWL(vJ) «CH (KK)/100. 


PNL 

610 

YV(NPANEL)=YLE(KK) 


PNL 

620 

CONTINUE 


PNL 

630 

LPANEL=NPANEL 


PNL 

640 

RETURN 


PNL 

650 

END 


PNL 

660- 



c 


10 


?0 


30 


40 


SUPPOUTINE ENTPN (U J ,T , XP .CPU ♦PT ♦ XEL »XET ,2 ,KCOOE , X JC ) 

TO compute tmf jet entrainment function 
DIMENSICN CSJ(70), SSO(70) 

DIMENSION PU1(3U» PU2(3l), FUl(3n, FU?(3U» FL3(3I), PR2(31) 
COMMON /JET/ PK1»XC«X (31) ,A (311 ,e (31) 

WRITE (6,260) 

WRITF (6,270) 

PI=3.1A159265 
IK = 1 
PFJ=T 

PKl = 0.0185 + 0,011«l! 

KCCCF=0 

XMID=n.5« (XEL+XET) 

XM=XMID 
X0 = O, 

P0 = ! . 

c=?,»dki*SQOT ( (1 .-U)«REJ) 

XCS0.35/F 
XJCsXC 
Pl=!.-U 

UA=n .♦2,«u/ (1 .-U) ) / (l.+U/(l ,-U) ) 

X (1 ) =XC 

DXX= (3.0XET-XFL )/30. 

IDXsDXX 
DXX=IDX 

IF (nxX.GT.3.) fC TO 10 
IF (nxX.6E.l..ANC,DXX.LF.'».) DXX = ?.P 
IF (r-xx.LT.u) rxx=i,5 

continue 

x(?)=x(i)»oxx/?. 

DO I=?,30 
X (1+) )=X (I) +DXX 
CO 30 1=1,70 
FI = I 

CSJ( I)=COS ((2,<»FI-1.)*PI/140.) 

5SJ(T)=SIM (2,«FI-1,)*PI/140.) 
no 160 1=1,31 
IF (U.LE.O.Ol) GC TO 80 
IF (I.FG.l,ANC.AP?{T-l.).LE.0,ni) 60 TO 100 

IF (I.FQ.l) S=(?.«PI<1»SQPT{RFJ*(1,-U))*XC/0.72-0,35)*SGRT((I,- 

l*ALrG(ljA) ) 

IF (I. EC. 2) S = rSX«(X(?),-XC) 

IF (I.GT.2) S=SH+DSX«OXX 
M=1 

IF (I.EO.l) M=? 

CONTINUF 

SUM=0. 

DO 50 J=l,70 
SR=n.F»S«(l .-CFJ (J) ) 


obigwas pa® ® 

OF -POOR 


ENT 10 
ENT 20 
ENT 30 
ENT 40 
ENT 50 
ENT 60 
ENT 7 0 
ENT 8 0 
ENT 90 
ENT 100 
ENT 110 
ENT 120 
ENT 130 
ENT 140 
ENT 150' 
ENT 160 
ENT 170 
ENT 180 
ENT 190 
ENT 200 
ENT 210 
ENT 220 
ENT 230 
ENT 240 
ENT ?5n 
ENT 260 
ENT 270 
ENT 280 
ENT 290 
ENT 300 
ENT 310 
ENT 320 
ENT 330 
ENT 340 
ENT 350 
ENT 360 
ENT 370 
ENT 380 
ENT 390 
U)/UENT 600 
ENT 610 
ENT 620 
ENT 630 
ENT 440 
ENT 450 
ENT 460 
ENT 470 
ENT 480 
ENT 490 



50 


60 

70 


PO 


90 


AP1= n ,-U)« f 1 .-EXP (-1 ./ ) ) 


ENT 

500 

A(5 = ^LO<3 ( (l.*2,oU/APn/ (l.+U/APl) ) 


ENT 

510 

SUNsSUP* (1,/SCPT (APl*AGi -SORT (2.«SP/ ( ( U-U ) «0 ,693 147 Ifi ) ) ) «SS J ( J) 

ENT 

520 

RE"S=SUP<»PI/70.«0,5«S*SGPT (U) *SGPT (? ,.«U/ ( 1 .-U ) ) 

,5/1.0397208 

ENT 

530 

Xl=PES+0.35 


ENT 

540 

IF (M.NE.l) 60 TO 70 


ENT 

550 

XT=X1/(2.«PK1*50RT( <1.-U)«BEJ) ) 


ENT 

560 

Pl= {l,-U)*a,-FXP (-1./ (2,*S> ) ) 


ENT 

570 

G1 = AL06( (l.+2,«b/PU/(l.*U/P15 ) 


ENT 

580 

0SX=?,«PK1-»SGPT <REJ« U ,-U)«Pl«6i/U) 


ENT 

590 

SH=S 


ENT 

600 

IF (ABS{X(I)-XT) .LE.O.Ol) FO TC 60 


ENT 

610 

OX=X {I>-XT 


ENT 

620 

S=S*OX*OSX 


ENT 

630 

SP=S 


ENT 

640 

GO TO 40 


ENT 

650 

Pl=(l,-U)« (1,-EXP(-1./ (2,»SP) ) ) 


ENT 

660 

IF (A0S(T-1.) .LF.0,01) Go TO 100 


ENT 

670 

XH=X1*0,72/(2,*PK1*SORT( {1 .-b>»PFJ) ) 


ENT 

680 

IF (ABS{X(I)-XP),LE.0.01) GO TO 90 


ENT 

690 

AK2=(1,-U)»<1.-FXP (-1./(2,*S) n 


ENT 

700 

AG2=AL0G ( (1,«-2.«U/AK2> /(l.+U/AK?) ) 


ENT 

710 

OSX1=2,*PK1/0.7P*SCPT (PEJ« (1 ,-U)«AK?*AG?/U) 


ENT 

720 

OX=X (I)-XH 


ENT 

730 

s=s*nx«osxi 


ENT 

740 

P = K + 1 


ENT 

750 

GO TO 40 


ENT 

760 

IF a.NE,l) SF = 2.<*PK1*90PT (REJ5 «X fl) -0.35 


ENT 

770 

IF (l.NE.l) Pl= (l.-U) « (1 .-EXP (-1,/ (2.»SH) ) ) 


ENT 

780 

DSX=2,*PK1*S0RT (PEJ) 

‘ 

ENT 

790 

IF (ApStT-1.) .LF.O.Ol) GO TO 100 


ENT 

800 

S = 2,*PKl/0,72e'5ORT fPEJ) «X < I ) -0 ,35 


ENT 

am 

IF <1 .FO.l.ANO.U.GT.O.Ol ) DSX=2 ,*PK 1 "SORT (REJ*ALOG ( U A ) /U ) * < 1 ,-U ) 

ENT 

820 

HO=l,-EXP(-l./ t2.*S) ) 


ENT 

830 

H0P=-2."H0"«2/0,72 


ENT 

840 

P1P=-2."P1"P1/ (1,-U) 


ENT 

850 

P?=(T-1 ,-U*U)*APJ»APJ*T)*P0-0.?"P1"APJ*APJ"T* (P1*2,*U) 

ENT 

860 

P2P = (T- 1 , + 0,2« n.-U«U) « ah J«APJ*T) "POP-0.2"P]P«APJ"AHU*7* (P1 + 2,«U) 

-ENT 

870 

10.2*P1*AHJ«AH0«T*P1P 


ENT 

880 

F1P=-P2P*0.8907* (0. 0890 1-0, 040 05»F2+ 0,01 792"P2"*2-0, 

fl0646«F2«*3)/(ENT 

890 

11 ,*1,05,001*P2) 


ENT 

900 

F2P=-P2P«0, 79 335* (0,0527-0, 02886 *P?+ 0.0 147P«P2*«2-0, 

005e9«P2**3)/(ENT 

910 

ll,+l,0Pe69*P2) 


ENT 

920 

F3P=-P2P*(0.12P57-0,04653«PP+0,0ie20*P2**2-0.00599«P2«*3)/(l.*l,02ENT 

930 

1272"P?) 


ENT 

940 

GO TO no 


ENT 

950 

P2=0. 


ENT 

960 

P2P=0. 


ENT 

970 

F1P=0. 


ENT 

980 


100 



110 


120 

130 

14C 


150 

160 


ORIGINAL PAGE IS 
Ot f OOR SUALTTSi 


F2P=0. 

F3P=0. 

IF (I.EQ.l.AND.U.GT.O.Ol) 
P1P=-2,*P1«P1/ (l.-U) 

Fl=0.8907«(0,12pK7+0,016j 

11817*P2) 

F2 = 0. 7933!;* (0,06676 *0.0 04 
185716*P2) 

F3=(0.21429+0,04061«P2-0. 




DSX=2,«PK1»S0PT 

7«P2-0,00607*P2* 

«!3*P2-0.00204*P2 

01249«P2“«2<-0,00 


ENTIOOO 

(PE0«ALOG(UA)/U)* (l.-U) ENT 10 10 
■ ‘ ENT1020 

»2+0.00192*P2«*3)/(1,*0,8ENT1030 

ENT1040 

**2*0,00075*P2»«3) / (1,+0,ENT1050 

ENT1060 

351*P2««3) / (l.*0,7e94fl«P2ENTl070 


1) 

ENTioeo 

FU=U»P1«F1*P1*P1»F2 

ENT1090 

DMC1= (P1P*F1 fPl*FlP-U«P2P»F3-U«PP*F3P)/FU 

ENTllOO 

DKC2= (Pl«Fl-b*P?»F3)« (U«PlP«Fl*U«Pl»FlP+2 

.ePl«PlP«F2*Pl«Pl<*F2P)/(FENT1110 

1U»FU) 

ENT1120 

0PX=2,* (1 ,-U) * (DFC1-DFC2) «DSX/SOPT (REJ) 

ENT1130 

RJ2s0.5*n.-Ll/FL 

ENT1140 

RJ1=S0RT (PJ2) 

ENT1150 

WRITE (6,250) X(I),RJl»Cvx 

ENTlieo 

IF (Z.LT.O) 60 TO 140 

ENT1170 

IF (IK.GT.l) GC TO 140 

ENTllOO 

IF (X (I) .6E.XEU GO TO 1?0 

ENT1190 

GO TO 140 

ENT1200 

IF (PJl.LT.Z) GO TO 140 

ENT1210 

XMJ=X0* (2-RO)* (X (I)-XO) /(PJl-PO) 

ENT1220 

IF (XEL,LT.O) GO TO 130 

ENT1230 

•IF (XMJ.LT.XET) KCCDE=1 

ENT1240 

IKtIK*l 

ENT1250 

GO TO 140 

ENTI260 

XMso,5*XET 

ENT 127 0 

IF {XPJ,LE.XR) KrOOE=l 

ENT1280 

IK=1K*1 

ENT 1290 

COMINUE 

ENT130O 

ROrRJl 

ENTI310 

X08X (I) 

ENT1320 

PUl (I)=P1 

ENT1330 

PU2 (I)=P2 

ENT1340 

FU1(I)=F1 

ENT1350 

FU2{I)=F2 

ENT1360 

FU2 (I)=F3 

ENT1370 

RR?(I>=RU? 

ENT13eO 

IF (I.EO.l) GC TO 150 

ENT1390 

R (I)=(PMX-DMXC)/ (X(I+1)-X{1>) 

ENTI40O 

An)=DMXO-Pa)»X{I> 

ENT1410 

GO TO 160 

ENT1420 

A(I)=0.145»DMX/0,3P 

ENT1430 

B(I)=(OPX-A(I))/XC 

FNT1440 

DPXC=OFX 

ENT1450 

K=1 

ENT1460 

IF (K.GT.30) GO TO 240 

ENT1470 


170 




IF (XM,6E,0..AN'D.XH.UT,XCJ GC TO IPO 

ENT14R0 


IF (XF.GE.X (K) .ANO.XM.LT.X {K*D ) 60 TO 180 

ENT1490 


K=K + 1 

ENT1500 


GO TO 170 

ENT1510 

IfiO 

F11=RR2 (K)* (PUl (K)«U«FU1 (K) +PU1 (K)«o2«FU2 (K) ) / (U*U) 

ENT1520 


F12=RR2(K+1)*(PU1 (K*1)«U»FU1 (K+1)*PU1 (K+1 ) *«2*FU2 (K*l ) )/(U«0) 

ENT1530 


F21=RR2(K)«{PU1 (K)«FU1 (K > -U«PU2 <K ) «FU3 (K > )/U 

ENT1540 


F22=RR2 (K*1)*(PL'HK+1)«FU1 (K + 1 ) -U«PU2 <K*1 ) *FU3 (K + 1) )/U 

ENT1550 


IF {APS(T-1.) .LF, 0*001) GO TO 190 

ENT1560 


F31=RR? (K)« (9*»PU1 (K) /70,-PUl (K) «FU1 (K) +U*PU2 (K) *FU3 (K) )/0 

ENT1570 


F32=RR2 {K + D « (9 * «PU 1 (K ♦ 1 ) /70 ,-PU 1 (K + 1 ) »FU1 (K+1 ) +U*PU2 (K + 1 ) »FU3 (K + 1ENT1580 


1) )/U 

ENT1590 


Xl 1=F11/ (F214.F31 ) 

ENT1600 


X12aF12/{F22+F32) 

ENT1610 


GO TO 200 

ENT1620 

190 

F31=0. 

ENT1630 


F32=0. 

ENT1640 

?00 

continue 

ENT16S0 


X1=X{K) 

ENT1660 


X2=X{K*1) 

ENT1670 


X21 = Fll/{F21-»F3l)4F3l« (F 1 1/ (F21 + F31 ) -1 . ) /F21 

ENT1680 


X22=F12/ (F224F32)4F32* {Fl?/ tF22*F32 ) -1 , ) /F22 

ENT1690 


X31=?,*F21*(F2l4F31)/ (F11-F21-F31) 

ENT1700 


X31=?0RT (X31) 

ENT1710 


X3?=2,*F22»(F22+F32) / (F12-F22-F32) 

ENT1720 


X32=SQRT (X32) 

ENT1730 


IF (XM.GE.O. .4NC.XF.L.T.XC) GO TO 210 

ENT1740 


GO TO 220 

ENT1750 

210 

X1 = 0. 

ENT1760 


X2=XC 

ENT1770 


X22=XP1 

ENT1780 


X32=X31 

ENT1790 


X21=l,/U 

ENTlPOn 


X31=l . 

ENTiain 


IF <A8S(T-1.) ,LF.0*0,01) GC TO 220 

ENT1820 


X12=X11 

ENT1P30 


XH = 1,/{T«U) 

ENT1P40 

220 

CMU=X21* (XP-X1)« (X22«X21 ) /(X2-X1) 

ENT1P50 


PT=X31*<XP-Xl)«(X32-X31)/(X2-xn 

ENT1P60 


CNU=1./CPU 

ENT187n 


IF (ABS(T-1.) *LE. 0,001) GC TO 230 

ENT1P80 


RUttXll* (XM-X1)« (X12-X11 )/<X2-Xl ) 

ENT1890 


T=1 ./ (CPU»RU) 

ENT1900 

230 

CONTINUE 

eNT1910 

240 

CONTINUE 

ENT1920 


RETURN 

ENT1930 

C 


ENT1940 

250 

FORPAT (fiFlO.S) 

ENT1950 

260 

FORPAT (/EXtAShTHE COMPUTFO JET ENTRAINMENT ARE AS FOLLOWS) 

ENT1960 



n 


270 


10 

20 


30 

40 

50 


C 


10 


20 


FORMAT {/5X,4HXJFT,PXt4HPJET»5X, ENT1970 

END OE POOR QUALITY ENT1980- 

SUBROUTINE RECTU ( I?YV»N5vJ tY) RCT 10 

TO DEFINE THE UMT NORMAL VECTORS TO THE SURFACE OF RECTANCfLAR RCT 20 

JETS RCT 30 

DIMENSION YdO.Al) RCT 40 

IF aSYM.EG.O) GO TO 10 RCT 50 

NSJ15=NSJ+1 RCT 60 

NJH= (NSJ-D/2 + 2 RCT 70 

GO TO 20 RCT eo 

NSJ1=NSJ-1 RCT 90 

NJH=NSv/2 RCT 100 

DO 50 I=1»NSJ1 RCT 110 

IF (I.EG.I.AND.ISYM.NE.O) GC to ?0 RCT 120 

IF (I.EQ.NJH) GO TO 40 RCT 130 

Y{3,I)=1. RCT 140 

Y(4tl)=0. RCT 150 

60 TO SO RCT 160 

YO,I)=0. RCT 170 

Y{4.1)=-1, RCT 180 

GO TO 50 RCT 190 

Y(3,I)=0, RCT 200 

Y{4»I)=1, RCT 210 

CONTINUE RCT 320 

RETURN RCT 230 

END RCT 240- 

SUSROUTINE CIRCO (ISYM»NSJ»Y) CRJ 10 

TO DEFINE the UMT NORMAL VECTORS TO THE SURFACE OF CIRCULAR JETS CRJ 20 

DIMENSION Y(10,4l) CRJ 30 

PI=3. 14159265 CRJ 40 

IF (ISYM.EG.O) GO TO 10 CRJ 50 

NSJ1=NSJ^1 CRJ 60 

NN= (NSJ-H/2*! CRJ 70 

FN2=NN CRJ 80 

NJH=NN+1 CRJ 90 

Y (1»1)=-S1N{PI/(2.«FN2) ) CRJ 100 

Y (2tl)=-COS(PI/(2,«FN2) ) CRJ UO 

GO TO 20 CRJ 120 

Yn,l)=l, CRJ 130 

Y(2,l)=0. CRJ 140 

NSJ1=NSJ-1 CRJ 150 

FN2=NSJ/2 CRJ 160 

NJH=NSJ/2 CRJ 170 

CONTINUE CRJ 180 

DO SO I=1»NSJ1 CRJ 190 

K=I CRJ 200 

KIsI CRJ 210 

IF (I.GT.NJH.AND.ISYM.NE.O) K=I-NJH*1 CRJ 220 

IF (I. GT.N'JH. AND. ISYM.EG.O) K = I-NJH CRJ 230 



30 

40 

= 0 

C 

C 


FI = K 

IF (ISY^'.K’F.O) ANG2= (FI-1 , ) *PI/FN? 

IF (IS-YM.EQ.O) ANF2 = FI«PT/FN? 

YP = 0 (1 .-COS ( AN(?2) ) 

IF (ISYN.EQ.O) ANG? = PI-ATAN (SOPT (1 .-YP»YF)/YP) 

II=I+1 

KK=I 

KII=II 

IF (I.GT.NJH) KK=II-NJP 
FII=KK 

IF (I.LE.NJH.AKD.ISYM.EQ.O) FII=KK+1 
ANG1 = (?.»FII-1 ,)«P1/ (2.«FN'2) 

YP = 0.'5*(l.-COS(AhGl) ) 

IF (ANGl.GT.PI) YP=-YP 

IF (ISYW.EO.O) A^G1=PI-ATA^ (SGPT n .-YP»YP) /YPl 

IF (I.GT.NJH) GC TC 30 

GO TO 40 

AN>61=-ANG1 

ANP2=-ANG? 

CONTINUE 

vn,KII)=SIN(ANPl) 

Y(?.KII)=-CCS(ANG1) 

Y(3.KI)=SIN(ANG?) 

Y (4 ,KI ) =-COS (ANG?) 

CONTINUE 

PFTU'RN 

ENC 

SUPPOUTINF JShAPF ( X XL . X XT , YU . Y J .7 J .P J .CPCWL ♦ IF ANFL ,N J t JC » I SYM ) 
TO CFFINE THE LOCATIONS CF VORTEX AND CONTROL POINTS ON CIRCULAR 


CRJ 240 
CRJ ?F0 
CRJ 260 
CRJ 270 
CRJ 2G0 
CRJ 290 
CRJ 300 
CRJ 310 
CRJ 320 
CRJ 330 
CRJ 340 
CRJ 350 
CRJ 360 
CRJ 370 
CRJ 3P0 
CRJ 390 
CRJ 400 
CRJ 410 
CRJ 420 
CRJ 430 
CRJ 440 
CRJ 450 
CRJ 460 
CRJ 470 
CRJ 4P0 
CRJ 490 
CRJ 500- 
JSF 10 
JSF 20 


jFfc JSP 30 
OINENSICN CPCWL(1)« XXL(1)» XXT(l). YL(1) J*5P 40 
CONNON /SCHFFE/ C ( 2 ) ♦ X { 1 0 , 4 1 ) » Y ( 1 0 . 4 1 ) . SLOPF (1 5 ) « XL ( 2 » 15 ) ♦ XTT (4 1 ) , JSP 50 


1XLL(41) JSP 60 

COFHON /GEON/ H ALFSW ♦ XCP ( 200 ) , YCF { 200 ) . 7CP (20 P ) » XLE (50 ) * YLE ( 50 ) .XT JSP 70 
1E(=0). PS I( 20 ),CH( 95). XV (200). YV (100). SN(8»P)«XN(200«2).YN (200*2) ,2 JSP PO 
2N (200,2) .width (A) ,YCON(25) .SWEEP (5 0) ,H ALFR , <= J ( 2 1 , P ) .EX (95,2) ,TX(95JSP 9 0 
3.2) ,SC(160.5) ,SI (160,5) .LC(3) JSP 100 

CCHHON /CONST/ NCS ,NCW .H 1 { P ) ,N c J ,NC J ('^ ) ,L AST . WoW 1 { 3 . 5 ) ,H JW2 ( 3 , 5 ) , J JSP 110 
1PANEL.HJJ(5) ,NW (?) .NNJ.NjP JSP 120 

PI=3. 14159265 JSP 130 


N1=NSJ*1 JSP 140 
IF (ISYH.FO.O) M=NSJ-1 JSP 150 
N2=M + 1 JSP 160 
IF (ISYH.EO.O) N2=N5J JSP 170 
Nl?=Nl/2*2 JSP IPO 
IF (ISYH.EO.O) N12=NSJ/2*1 JSP 190 
no 10 1=1.2 JSP 200 
C(I)=XXT(I)-XXL (I) JSP 210 
DO 10 J=1.NJ JSP 220 



10 XL(I«J)=XXL(I)+CPCVL(vJ>*C{n 
DO 20 J=l*NO 
FJ=J 
FNCJ=NJ 

PSI(J)=0.5*n ,-COS)FJ«PI/FNCJ> > 

20 SLOPF (J)=(XL(2«J)-XL (1»J) )/(?.*RJ) 

DO 30 Ksl,N2 
YY=Y (2»K) 

IF (ISVV .K'F.O.ANC.K.EQ.l) YY=-1. 

IF (ISYH.^F,0,A^O,K,EG.2) YY=-1, 

IF tK.EG. (N12-I) .OP.K.EG.NI?) YY=1, 

IF (K.E0,N2) YV=1. 

XTl (K)=YJ+RJ*YY 

3 0 X(vJ»K)=xL( 1.J)*‘:LOPE(J)« (XTT(K)-YL(l) » 

DO 120 K*1,N1 
KK=JC*K 
L = K 

IF (K.FQ.N12> L=1 

EX (KK,n=XXL (1) + (XXL (21-XXL (1) ) « (XTT (L) -YL ( 1 ) )/{2,«RJ) 

EX tKK»2)=XXL (1)4 (XXL (2>-XXL <1) ) »(XTT (K + 1 ) -YL (1 ) ) / (2.«RJ) 
TX (KK,1)=XXT (1) 4 (XXT (2>-XXT (1) ) » CXTT (L ) -YL ( I ) »/ (2.«RJ) 

TX (KK,2) =XXT (1 ) 4 (XXT (2) -XXT (1) ) » (XTT (X^D-YL (1 ) ) / (2.»RJ) 
CH (XK)=C (l)-(C (1)-C (2n *0,5«(1.4Y (4,K» ) 

00 120 J=1»NJ 

NPANFL= (K-l)«Nj4j-l4lPANEL 
00 50 I=l»? 

KI1=K+I-1 
SIGN=1 , 

IF <K.E0.M2,AKC.I.EQ.1 ) KI1 = 1 
IF (ISYR.EQ.O) 60 TO 40 
IF (KI1,E0.1,CR,KI1,EG,2) 60 TO 60 
GO TO 50 

40 IF (K.EG.M2.AND.KIl.E0.n SI6N = -1, 

50 COMINUE 

IF (KIl.EQ, (M2-1 ) ,0R.KI1.EQ,M2) GO TO 70 

IF (KTl.EQ.NF) 60 TO 70 

YY=Y{2,KI1) 

2Z=Y (1»KI1)«SI6K 

GO TO eo 

60 YY=-1. 

Z7=-Y(l,KIl)/Y(?,Kn) 

GO TO PO 
70 YYsl, 

ZZ=Y(1.KI1)/Y(2,KI1) 

eo continue 

XN(NPANEL4l)=X(J,KIl) 

YN (KPANFL* I ) =YJ4R J«YY 
90 ZN(NPANEL»I)»ZJ4RJ»Z2 

YK = 0.5» n .+Y (4 ,K) ) 


JSP 230 
JSP 240 
JSP 250 
JSP 260 
JSP 270 
JSP 280 
JSP 250 
JSP 300 
JSP 3in 
JSP 320 
JSP 330 
JSP 340 
JSP 350 
JSP 360 
JSP 370' 
JSP 380 
JSP 390 
JSP 400 
JSP 410 
JSP 420 
JSP 430 
'JSP 44 0 
JSP 450 
JSP 460 
JSP 470 
JSP 480 
JSP 490 
JSP 500 
JSP SIO 
JSP 520 
JSP 530 
JSP 540 
JSP 550 
JSP 560 
JSP 570 
JSP 580 
JSP 590 
JSP 600 
JSP 610 
JSP 620 
JSP 630 
JSP 640 
JSP 650 
JSP 660 
JSP 670 
JSP 680 
JSP 690 
JSP 700 
JSP 710 



o u 


100 

no 

120 


IF (ISVM.EO.O) YK=2,«YK-1, JSP 720 

XCP(NPANEL)»XXL(l) + <XyL{2)-XXLtin«YK*PSKJ)*Ch(KK) JSP 730 

IF (ABS(YN{NPANEL»2)-YN{NPANELi1) ) .LE, 0.0001) GO TO 100 JSP 740 

YCP(NPAN'EL)=YL (1)+YK»(YL<2)-YL (1) ) JSP 750 

ZCF (NPAKEL)=ZN (NPANEL 1 1 ) ♦ (7N (NPA^EL 1 2 ) -ZN (NPANEL » 1 ) ) * ( YCP (NPANED-JSP 760 

lYN (N‘PANEL*1) )/(YN(KPANEL»?)-YN (NPANEL? 1) ) JSP 770 

GO TO no JSP 780 

ZCP (NPANEL)=ZJ JSP 790 

YCP (NPANEL)=YN (^PA^EL♦n JSP 800 

CONTINUE JSP 810 

XV(NPANEL)=XXL(l)*(XXL(2)-XXL(n)*YK*CPCWL(J)»CH(KK) JSP 820 

CONTINUE JSP 830 

JC=JC*M JSP 840 

LAST=NPANEL JSP 850 

RETURN JSP 860 

EtvO JSP 870- 

OVERLAY (WNfiJET*2tO) JO^ 18 

PRCGPAN JETOFF JOP 20 

TC SET UP THE JETOFF INFLUENCE COEFFICIENT HATPIX AND CCHPUTE THE JOF 30 

CAPPER TERMS JOP AO 

DIMENSION AWdan* BW(131) JOP 50 


COMMON /6E0M/ HALFSWfXCP (200 ) »YCP (200) »ZCP {200 ) » XLE (50) » YLE (50) fXTJOF 60 
IE (EO) .PSI (20) tCH (95) *XV (200) t.YV (lOO)»SN(8i8)»XN(ZOO»2)fYN(20 0t2) tZJOF 70 
2N(200»2) tWI0TH(8) ,YCON (25) ♦SWEFP (EO) .HALFP ,SJ ( 21 »8 ) «EX (95 ♦ 2) tTX (95 JOF 80 
3»2),SC(160»5),S1(160,5),LC(3) JOP 90 

COMMON /AERO/ AMI , AMP. B1 ,82 *CL ( 30 ) *CT (30 ) , CD ( 30 ) *6 AM (2 , 130 ) JOF 100 

common /CONST/ NCS.NCW.M1 (8) .NSJ.NCJ (5) .LAST.MJVd (3,5) ,MJh2 (3,5) .JJOF HO 
IPANEL.MJJ (5) ,NW 0> .NNJ.NJP JOF 120 

COMMON /ADO/ CP { 1 3 0) .CM (30 ) , BREAK { 8 ) ,SWP (8 . 15) ,C-AL (30) . ISYM , VMU . VU JOF 130 
I.TFMP.FCR.CAMLER.CAMLET.CAMTER.CAMTET.XJ.YJ.ZJ.RJ.ALP.CREF.TWISTR JOF 140 
COMMON /PARAM/ ALPT.ALPC, ALPS. CDF. SDF.TH.TDF JOF 150 

COMMON /COST/ LTOTAL.LPAM ,NJW(5) ,LPANEL,IENTN,LPAN2,EXIT,PTIAL.TWJOF 160 
1IST.DF{5) .NFP JOP 170 

COMMON /SOME/ NC.NWING.LAT.NAL.LWF,LWFJ,CHOROT (3) .SNC (5) ,Y6 (5) .YCNJOF 180 
1 (6) .WKN,RDX.MD(?,NDG . JOP 190 

COMMON /FUS/ XF(PO) .XCF(20) .RF(20) .SNP (5.20) ♦XLEF,XTEF.WARO(20) .NCJOF 200 


1UM.NF.NT.CSF(5,10) »XAS (6) ,NKF (5) .FO.FIO.KF.NTL JOF 210 

PI=3. 14159265 JOF 220 

j1=LPANEL*1 JOP 230 

g-pj JOF 240 

AM=AM1 JOP 250 


IC = l 

M6=NW(1) 

NG=NW(1) 

NC=IENTN 

IG=1 

FOcO, 

F10=0, 

GP0=O, 


JOF 260 
JOF 270 
JOF 280 
JOF 290 
JOF 300 
JOF 310 
JOF 320 
JOF 330 



in f<i fv> r> o r> o 


ORIGINAL 
OE POOR QUAIOT 


REViINO 03 
REWIND 04 
JlsLWF*! 

10 CONTINUE 

IF (KF.EO.O) GO TC 20 
REWIND 1 
REWIND 7 

* CONFUTE THE INFLUENCE COEFFICIENTS DUF TO THE PRESENCE OF THE 
FUSELAGE, AND STORE ON FILE (07) * 

call VELFUS (LWF,LPANEL,AW,eW,AH,LPANI,LPAN?,l»ISYH) 

REWIND 1 
REWIND 7 

READ (08) (CP(I) ,I=1,LPANEL) 

0 CONTINUE 

LL=1 

IF (NW(2).EQ.O) 60 TO 40 
II=1+NC5 

IF (NH(3).NE.0> 60 TO 30 
CHCPD=CH (D+CHdl) 

GO TO 50 
0 III=TI+NCS 

CHORD=CH(l)*CH (II) ♦CHdin 
GO TO 50 

0 CH0RD=CH(1) 

0 CONTINUE 

CALL WING (AW.RWtLPANELd ,B,LPAM,LPAN2,KF) 

XC=(XCPd)-XLEdG) )/CHOftD 

CAH=ZCP (XC)- (ZCR (XC)-ZCT (XC) ) *YCP ( 1 ) /HALFE 

Aw (Jl)=-CAM 

BW(J1)=0, 

IF (KF.EO.O) 60 TO 80 

READ (07) (GAN(2,LK),LKsl,NTL) 

READ (01) (GAMd ,LK) tLK=l,NTL) 

DO 60 LK=1,NTL 

KK=LPANEL*LK 

BW<KK)=6AH(1,LK) 

80 AH (KK)sGAM (2.LK) 

XQsXCPn) 

YOsYCP(l) 

2Q = ZCP (1) 

WK=0, 

call FUSVCL (P,XO,YC,ZO,WN,WK,6PO»0,0) 

DO 70 KK=1,LPANEL 
70 AH (KK)=AW (KK) ♦WK*HKN«CP (KK) 

80 CONTINUE 

WRITE (03) (AW(JJ) »JJ=1,J1) 

WRITE (04) (BW(vJJ) ,JJ=1,J1) 


JOF 340 
JOF 350 
JOF 360 
JOF 370 
JOF 380 
JOF 390 
JOF 400 
JOF 410 
JOF 420 
JOF 430 
JOF 440 
JOF 450 
JOF 460 
JOF 470 
JOF 480 
JOF 490 
JOF 500 
JOF 510 
JOF 520 
JOF 530 
JOF 540 
JOF 550 
JOF 560 
JOF 570 
JOF 580 
JOF 590 
JOF 600 
JOF 610 
JOF 620 
JOF 630 
JOF 640 
JOF 650 
JOF 660 
JOF 670 
JOF 680 
JOE 690 
JOF 700 
JOF 710 
JOF 720 
JOF 730 
JOF 740 
JOF 750 
V.OF 760 
JOF 770 
JOF 780 
JOF 790 
JOF 800 

JOF eio 

JOF 820 




IJ=3 



JOF 630 


NJ=LP4NFL-1 



JOF 640 

90 

CALL WING (AW«eW,LPANEL»IO»PfLPAM «LPAN2,KF) 



JOF 850 


IF (Nw(2) ,EO.o) GO TO no 



JOF 860 


IIsIG+NCS 



JOF 870 


IF (NW(3) .NE.O) GO TO 100 



JOF 860 


CHORD=CH(IG)+CH(II) 



JOF 890 


CHFL=CH (IG) 



JOF 900 


GO TO ISO- 



JOF 910 

100 

in = Il+NCS 



JOF 920 


CHCRD=CMIG)+Ch(II)+CKIin 



JOF 930 


CHFL=CH (IG) +CH (ID 



JOF 940 


GO TO 120 



JOF 950 

110 

CHCROsCH (IG) 



JOF 960 


CHFL=CH(IG) 



JOF 970 

130 

CONTINUE 



JOF 980 


FCP=CHFL/CHOPD 



JOF 990 


XC=(XCP(IJ)-XLE(I6) ) /CHORD 



JOFIOOO 


CON=ABS(XC-FCP) 



JOFlOlO 


FCP1=FCR-0,01 



JOF1020 


FCR2=FCR+0.01 



JOF1030 


C7=0, 



JOF1040 


IF (AGS(l.-XC) .LE.0,01) GO TO 130 



JOF1050 


7C1=7CP(XC) 



JOF1060 


ZC2=ZCT(XC) 



JOF1070 


CZ=7C1- (ZC1-ZC2)«YCF (IJ)/HALFP 



JOFIOPO 

130 

CONTINUE 



J0F1090 


IF (XC.LT.FCRl) CAN=CZ 



JOFllOO 


IF (COP.LT.O.OOl ) CAP=CZ-0,5»0F (LL) 



JOFlllO 


IF (XC, 6T.FCR2. AND. AP5(1. -XC) ,6T. 0,01) C APa-OF (LL ) *CZ 

JOF1120 


IF (ABSd.-XC) .LE.O.Ol) CAH=-DF(LL)+CAPTER-(CAVTEP-CAPTET)«YCP(IJ) JOF1130 


1/HALFP 



JOF1140 


IF (PTIAL. LE.O.Ol. AND. XC.6T.FCR2) GO TO IPO 


— 

JOF1150 


IF (PTIAL. GT. 0,01) 60 TO 150 



JOF1160 


IF (OF(LL) ,GT, 0,01. AND, XC.GT.FCRl ) GO TO 160 



JOF1170 

140 

IF (IJ,NE,MG) GO TO 160 



JOF1180 


IF (ABS(XC-1,) .LE,0,01) GO TO 160 



JOF1190 


JK=1 



JOF1200 


IF (NW(3) , NE.O. AND, IJ.GT.LPANI) JK=2 



JOF1210 


NCPsIJ* (NCS-IG)«NW (JK) ♦ (IG-1) «NW (JK+1) ♦! 



JOF1220 


XC1= (XCP (NCP)-XLE (IG) ) /CHORD 



JOF1230 


CAP1=ZCR (XCl ) - (7CR (XCl ) -ZCT (XCl ) ) »YCP ( IJ) /HALFE 


JOF1240 


CAP= (CAM + CAPD/2, 



JOF1250 


GO TO 180 



JOF1260 

150 

IF (IJ.GE,MUW1 (1 ,LL) .AND,IJ,LE,P0W2 (1,LL) ) GO 

TO 

170 

J0F1270 


IF (IJ,6E.MJW1 (2,LL) ,AND.IJ,LE,PJW2(2»LL) > GO 

TO 

160 

JOF1280 


IF (Iv»,GE,HdWl (3,LL) ,AND.IJ,LE,PJW2(3.LL) > GO 

TO 

180 

J0F1290 


CApsCZ 



-JOF1300 


60 TO 140 



JOF1310 



If 0 CAN=CAMTER- (CAWTFR-Cih*TET5 *YCP ( I J ) /H ALEP 
GO TO 180 

170 IF (XC*6T,FCR1) GO TO 180 
GO TO-140 
leO CO^TINUE 

AW(Jl)a-CAM 
ew tJl > =0. 

IF {KF.EO.O) GO TO 210 

REAC (07) (GAN (2,L*<) fLK=l,ML) 

REAO (01) (GAN(1,LK) ,LK=1,NTL) 

DO lOr' LK=1»ML 

KK=LPANEL+LK 

RVl(KK)s6AMn,LK> 

ISC AW (KK)=GAN (2,LK) 

XQaXCP(IJ) 

YO=YCP(IJ) 

7Q=ZCP flJ) 

WK = 0. 

CALL FUSVOL (B , XO ♦ YO fZO » WN ♦ WK , GPO » 0 . 0 ] 

DO 200 KK=1,LPANEL 
200 AW(KK)=AW(KK)+WK»WKN«CP(KK) 

210 COKTINUE 

WRITE (03) (AW{JJ) ,JJsl,Jl) 

WRITE (04) (BW (JO) 

IF (IJ.GE.LPANl.AKD.IO.LT.LPAN?) NG=NW(2) 

IF (TJ.GE.LPAN2.AK0. Id. LT.LPANEL) NG=NW(3) 

IF (IJ.E0.NJW2(1,LL) ,OR.Id.EQ.NJW2(2,LL) ) LL«LL*1 

IF (IJ,EQ,MJW2(3tLL) ) LL=LL*l 

IF (LL.GT.NFP) LL=1 

IF (IJ.LT.NG) 60 TO 220 

1G=16+1 

N6=NG*NG 

220 IF <IJ,EQ.LPAM.CR.IJ.EQ.LPAN2) IG = 1 
IF <IJ,EQ.LPAM.CR,IJ.E0.LPAN2) LL = 1 
IJ=1J*1 

NJsNJ-l 

IF (IJ.LE.LPANEL) CC TO 90 
IF (KF.EO.O) 60 TC 2f0 
DO 250 KJ=1.NTL 
READ (07) (AW(KK) .KK=1,LWF) 

READ (01) (BW (KK) .KK=1,LWF) 

AW(J1)=0. 

BW (dl)=0. 

IF (KJ.GT.NF) GO TO 240 
KI=KJ 

XS=XCF(KI)-XTEF 
XB=XCF(KI)-XLEF 
IF (KJ.EQ.NF) RFL=0. 

IF (KJ.NE.NF) PFL=XS/50RT(XS«XS*P«RF (KI) «PF (KI) > 


JOF1320 
JOF1330 
JOF1340 
JOF1350 
JOF1360 
J0F1370 
JOFlSeo 
JOF1390 
JOF1400 
' JOF1410 
J0F1420 
J0F1430 
JOF1440 
J0F1450 
J0F1460 
J0F1470 
JOF140O 
J0F149O 
JOF150O 
JOF1510 
JOFIS20 
JOF1530 
JOF1540 
JOF1550 
J0F1560 
J0F1570 
JOF150O 
J0F1590 
JOF1600 
JOF1610 
J0F1620 
JOF1630 
JOF1640 
JOF1650 
J0F1660 
JOF1670 
JOF160O 
JOF1690 
JOF1700 
JOF1710 
JOF1720 
JOF1730 
JOF1740 
J0F1750 
J0F1760 
JOF1770 
JOF1780 
JOF1790 
JOF1800 





230 

240 

250 

260 


270 

C 

C 


RF1=XS*(1.+RFL) JOFIPIO 
RF0 = XB«(1.*XE/SGRT(XB«X8 + P*RF (KI>»RF(KHJ) JOF1B20 
WK = - (RF1-RF0)«WKK/ {4,»PD JOF1830 
DO 230 KK=l»t:PANEL J0F1840 
AW(KK)=AW{KK)+WK«CP(KK) JOF1850 
COMINUE JOF1860 
WRITE (03) {AW(JJ),JJ=1.JD JOFX870 
WRITE (04) (EW(JJ) ,JJ=1»J1) JOF1880 
TJ=1J*1 JOF1890 
COMINUE JOFX900 
Tr=Tr+l J0FX9X0 

JOFX920 

AN=AM2 JOFX930 
IG=I JOFX940 
NG=NW(I) JOFX950 
MG=NW(X) JOFX960 
IF (ABS(BX-P2) .LE.O.OOX) 60 TO 270 JOFX970 
IF (IC.LE.2) 60 TO XO J0FX980 
COMINUE JOFX990 
return JOF2000 

JOF20X0 


f(gt) JOF2020" 

OVERLAY (WNGJET,3»0) '^0*^ 

program JETON 20 

TO SET UP the JETON INFLUENCE CCEFFICIENT MATRICES JON 30 

DIMENSION AW(33I)» PW(331). CG(250) JON 40 

COMMON /GEOM/ hALFSW»XCP (200) »YCP (200) tZCP (200) »XLE (50) fYLE (50) f XTJON 50 
1E(*=0)»P9I(20) tCl-(95) »XV(200) ,YV(XOO)*SN(8»P)»XK(200»2) »YN (200*2) *ZJON 6 0 
2N (200*2) ♦ WIDTH (8) *YCON (2*=) * SWEEP (£0) *HALFB*‘:J (21 *8) *EX (95*2) *TX (95 JON 7 0 
3*2) *SC(X60*5) *SI (160.5) *LC(3) JON 80 

COMMON /SNOOE/ KCODE JON 90 

COMMON /AERO/ AM X . AM2 * B 1 ,P2 *CL (30 ) *CT ( 30 ) * CD (30 ) *GAM (2 * X30 ) JON XOO 

COMMON /CONST/ NCS *NCW *M l ( 8 ) *NS J*NC J (5 ) *LAST* M JW 1 ( 3 *5) *MJW2 ( 3 *5 ) * JJON XXO 
XPANEL*MJJ(5) *NW(3) .NNJ.NJP JON X20 

COMMON /PARAM/ ALPT, ALPC,ALPS*CDF *SDF,TH,TPF JON X30 

COMMON /ADO/ CP ( X3 0 ) ,CM ( 30 ) .BREAK (8 ) «SWP (8 * 15 ) *GAL (30 ) ♦ ISYM * VMU » VUJON X40 
X*TEMP*FCR*CAMLER*CAMLFT*CAMTEP,CAMTFT,XJ*YJ*ZJ*PJ*ALP»CREF .TWISTR JON X50 
COMMON /COST/ LTCTAL.LPAN1,NJW(=) *LPANEL*IFNTN*LPAN2»EXIT.PTIAL*TWJ0N 160 
IIST.DF (5) *NFF JON 170 

COMMON /SOME/ KC ,N W ING *LAT *NAL *LWF ,LWF J .CHORDT ( 3 ) *SNG (5 ) *VG (5 ) * YCNJON 180 
1 (6) *WKN*BDX»HC6*NDG JON 190 

COMMON /FUS/ XF (20) .XCF (20) «RF (20) *SNP (5*20) *XLEF*XTEF*hARO (20) .NCJON 200 
XUM,NF*NT*CSF(5,10) .XAS (6)*NKF(5) ,FO*F10,KF*NTL JON 210 

REWIND 02 JON 220 

PI=3«14159265 JON 230 

AMrAMl JON 240 


F0 = 0. 
F10 = 0, 
GB0=0. 


JON 250 
JON 260 
JON 270 




TF (KF.EO.O) GC TC 10 

JON 280 


REWIND 1 

JON 290 


REWIND 7 

JON 300 


CALL VELFUS (LWF ,LP ANEL t AW »BW» AN »LP ANl ,LPAN2, 2 ♦ ISYN ) 

JON 310 


REWIND 1 

JON 320 


REWIND 7 

JON 330 


READ (08) (CG (I) ,1=1 tLAST) 

JON 340 

10 

CONTINUE 

JON 350 


REWIND 09 

JON 360 


J1=LWFJ 

JON 370 


LP1=LT0TAL*1 

JON 380 


HJ=LPANEL+NCJ(1) 

JON 390 


MCCN=LAST+NCJ(1) 

JON 400 


IPNI=1 

JON 410 


JL=LAST+1 

JON 420 


INN = 1 

JON 430 


LN=1 

JON 440 


lni=i 

JON 450 


JNN = 1 

JON 460 


VMUC=VMU*ALPC 

JON 470 


mk=1 

JON 480 


I=LAST+1 

JON 490 


I1=I-JPANEL 

JON 500 


CALL MATRIX ( AW ,EW , LTOTAL ,LPANFL ,VMUC, I ,MCON ,M J , IPHI 

,INN ,LN,LN1,TEJ0N SlO 


1MP,LPAM,ISYN,KC0DE,EX1T,LPAN2,KF) 

JON 520 


IF (KF.EO.O) GO TO 50 

JON 530 


VK=VMUC 

JON 540 


tm=temr 

JON 550 


IF (EXIT. LE. 0.001) GO TO 20 

JON 560 


IF (NNJ.EO.l) 60 TC 20 

JON 570 


VK=1. 

JON 580 


TM=1. 

JON 590 

30 

XQ=XCP(I1) 

JON 600 


YO=YCP(in 

JON 610 


2Q=7CP (11 ) 

JON 620 


CALL FSPEED (B 1 ,X<3 tYO,ZO »G AN , WKl ,WK2 ) 

JON 630 


DO 30 KK=1,LAST 

JON 640 


IF (KK.LE.LPANEL) kc=kk*?*jpanel 

JON 650 


IF (KK.GT.LPANEL) ko=kk-lpanel+jpanel 

JON 660 

30 

AW(KQ) =AW(K0)-WK2»WKN*CG(KK)«TM*VK«VK 

JON 670 


DO 40 LK=1,NTL 

JON 680 


kk=ltotal*lk 

JON 690 


BH (KK)=-6AM (l.LK)*TM*VK#VK 

JON 700 

40 

AW (KK)=-GAH (2,LK)*TM»VK«VK 

JON 710 

'SO 

CONTINUE 

JON 720 


WRITE (03) (AW (JJ) ,Jvl=l,Jl) 

JON 730 


WRITE (09) (BW (JJ) »JJ=1,J1) 

JON 740 


KI = 2 

JON 750 


NI=LTOTAL-l 

JON 760 
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60 


70 


80 

^0 


100 


110 


120 

'130 


140 


LI=LAST-»2 

JON 770 

VMPsVMUC 

JON 780 

■KJ=L1 

JON 790 

IF (LI. GT, LAST) KJ=LI-UPANEL 

JON 800 

CALL MATRIX (AW»ew*LTOTAL»LPANEL ♦VNP.Ll ,MCCN,MJ, 

IPHI,INN*LN,LNI,TEJ'oN 810 

lMP,LPANl»ISYH,KCODE»EXlT»LPAN2,Kn 

JON 820 

IF (KF.EQ.O) GO TO 130 

JON 830 

XO=XCP(KJ) 

JON 640 

YQ=YCP(KJ) 

JON 850 

20=7CP{KJ) 

JON 860 

IF (LI. 6T. LAST) GO TO 90 

JON 870 

READ (07) (GAM(?,LK) fLK = l»K’TL) 

JON 680 

READ (01) (6AV(1,LK) »LK=1,NTL) 

JON 690 

DO 70 LK=1,NTL 

JON 900 

KK=LTOTAL+LK 

JON 910 

BW(KK)=GAM (l.LK) 

JON 920 

AW(KK)=GAM(2»LK) 

JON 930 

call FUSVOL (Bl,XOtYO» 7 O»WN»ViK,GP 0 »n, 0 ) 

JON 940 

DO 80 KK=1,LAST 

JON 950 

IF (KK.LE.LPANEL) K0=KK*2«vJPANEL 

JON 960 

IF (KK.GT.LPAKEL) kg=kk-lpanel+jfanfl 

JON 570 

AW(KQ)=AW(K0)4WK«V*KK-«CG (KK) 

JON 980 

GO TO 130 

JON 990 

VK=VMUC 

JONIOOO 

TH=TEMP 

JONlOlO 

IF (EXIT. LE. 0.001) GO TO 100 

J0M020 

IF (NNJ.EQ.l) GO TO 100 

JON1030 

IF (KJ.GT.LPAKEL.ANC.Kj.LF.MJJd)) VK=1, 

JON 1040 

IF (KJ.GT.LPANEL.AND.KJ.LE.MJJtU) TM = 1. 

JOM050 

CALL FSPEEO (B 1 .XCJ t YO ,ZQ ,G AM ,WK1 ,)iK2) 

JON1060 

DO no KK=1,LAST 

JON1070 

IF (KK.LE.LPANEL) KC=KK*2*0PANEL 

JONIOPO 

IF (KK.GT.LPAKEL) KC=KK-LPANEL+JPAK'EL 

JON1090 

AW (KO)=AW (KQ)-WK?«WKN«C6 (KK ) «TM»VX<*VK 

JONllOO 

DO 120 LK=1,NTL 

JONlllO 

KK=LTOTAL*LK 

J0N1120 

ew (KK ) s-GAM ( 1 ,LK ) «TM«VK»VK 

JON1130 

AW(KK)=-6AM (2,LK) «TM*VK«VK 

J0M140 

CONTINUE 

JON1150 

WRITE (03) (AW (JJ) »JJ=1»J1 ) 

JON1160 

WRITE (09) (BW(JJ) .JJalf Jl) 

JON1170 

IF (KJ.LT.MJ.OR.KvJ.EO.LAST) go TC 140 

JOM180 

IPMIslPHI+1 

JOM 190 

Mvl=MJ+NCJ(INN) 

JON1200 

CONTINUE 

JON1210 

MJI=MJJ(1NN)-1 

.JON1220 

IF (KJ.EQ.MJI) 60 TO 150 

JON1230 

GO TO 160 

JON1240 

jnn=inn 

JOM250 


150 
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160 

170 


IPO 


190 

?00 

210 


220 


230 

240 

t 


C 


INN=1NN*1 

IF (Kj.EG.MJJtJKM ) 1PH1 = 1 

IF (LI.EQ.LTOTAL) GO TO 170 

GO TO. IPO 

CONTINUE 

IPHI=1 

FJ=LPANEL*NCJ(1J 

JN'N-1 

INN^l 

CONTINUE 

KI=KI+1 

NIeM-1 

IF (LI.EQ.LTOTAL) GO TO 190 

IF (LI, EO. LAST) GO TO 200 

L1=LI*1 

60 TO 210 

L1=LPANEL+1 

60 TO 210 

LI = 1 

CONTINUE 

JP=LI-LAST*LPANEL 

JPlsJp-1 

IF (JP.EO.MJO(LNl) ) LM=LM1*1 
IF (JPl.EO.MJJ (LN) ) LN=LN*1 
IF (KI.LE.LTOTAL) go to 60 
IF (KF.EO.O) GO TO 240 
J(51=JPANEL+1 
DO 220 KJ=1,JPANEL 
AW (KJ)=0. 


JON1260 
JON1270 
JON 1280 
JON1290 
J0N1300 
JOM310 
JOM320 
JON1330 
J0M340 
JON1350 
JON1360 
JOM370 
J0N1380 
J0N1390 
J0N140O 
JOM410 
JON1420 
JOM430 
JOM440 
J0N1450 
JON1460 
JOM470 
JON14P0 
JOM490 
JON1500 
J0M510 
JOM520 
JONISSO 
JON1540 


BW(KJ)=0. JON1550 

DO 230 KJ=1,NTL JON1560 

READ (07) (AfcUKK) ,KK=JQ1,LWFJ) JON1570 • 

READ (01) (RW(KK) ,KK=JQ1,LWFJ) JON1580 

WRITE (03) (AW(OJ) ,JJ=1,J1) JOM5R0 

WRITE (09) (8W(JJ) ,JJ=1,J1) JOM600 

+ 1 ’ J0M610 

CONTINUE J0N1620 

return JON1630 

JON1640 

end J0M650- 

SUEPOUTINE MATRIX < AW ,BW,LTOTAL ,LPANEL , VMU i I « MCCN J , IPFl » INN,LN ^LMAT 10 
INI, TEMP, LPAN1,1SYM.KC0DE,EXIT*LPAN2,KF) MAT 20 

TO COMPUTE THE JETON INFLUENCE COEFFICIENT MATRICES MAT 30 

DIMENSION AW(1), PW(l) MAT 40 

DIMENSION W(4), V(4) MAT 50 

DIMENSION SV(300), SH(300) MAT 60 


COMMON /GEOM/ H ALFSW , XCP ( 200 ) , YCP (200) ,2CP (200 ) » XLE (SO ) , YLE (50 ) , XTMAT - 70 
IE (50) ,PSI (20) »CH (95) ,XV(200),YV(100),SN(8,8),XN(200,2),YN(200,2),ZMAT 80 
2N (200,2) tWrOTH(8) ,YC0N(25) .SKFEP(5 0) »HALF8,S J (21 ,8 ) ,EX (95,2) ,TX (9SMAT 90 



10 

20 


30 

40 


(30) ,GAK (2,130) 

,KJhl (3,5) ,KJId2{3,5), 


3,2) ,SC( 160,5 ) ,SI (160,5) ,LC (3) 

COKNON /SCHEME/ C(2) , X ( 1 0 ,4 1 ) ,Y ( 10 ,41 ) ,SLOPE ( 15 ) , XL (2 , 15 ) , XTT (41 ) 
1XLL(41) 

COf^KON /AERO/ AMl,AM2,ei-,B2,CL (30)-,CT (30) ,r0 
COMHON /CONST/ NCS,NCW ,M 1 ( B ) ,NS J ,NCJ (5 ) ,LAST 
1PANEL,MJJ(5) ,NW (3) ,NNJ,NJP 
COKHON /PARAV/ ALPT,ALPC, ALPS, CDF, S0F,TH, TOP 
EQUIVALENCE (X ( 1 , 1) ,SV ( 1 ) ) 

PI=3, 14159265 
ZJET=YC0N(25) 

IUSB=YC0N(24) 

JC0T=XTE(50) 

DFJ*COF 
VUT=VMU 
TEPsTEMP 
NN2SNNJ-1 
N1=NNJ-1 
N2=NNJ-2 
N3=KNJ-3 
NJH=(NSc*l)/2*l 
IF (ISYP.EQ.O) NJpsNSJ/2 
IF (ISYM.EO.O) NP=NSJ-1 
IF (ISYP.NE.O) NP=NSJ+1 
NJT=NJH-l 
IZ=1 
IP=1 
IFF = 1 
MM=NW(1) 

NN=NW(1) 

IND»1 
ISK=1 
JKTel 

L1=LPANEL*1 
LAST1=LAST-1 
IF (I.6T.LAST) GO TO 10 
IJ=I 

GO TO 20 
IJ=I-JPANEL 
CONTINUE 
DO 260 J=1,LAST 
MIsj-IFF*l 
FN=NN 


HAT 

♦mat 

HAT 

HAT 

JHAT 

HAT 

MAT 

MAT 

MAT 

MAT 

MAT 

MAT 

MAT 

MAT 

MAT 

MAT 

MAT 

MAT 

MAT 

mat 

MAT 

MAT 

MAT 

MAT 

MAT 

MAT 

MAT 

MAT 

MAT 

MAT 

MAT 

MAT 

MAT 

MAT 

MAT 

MAT 

MAT 

MAT 

MAT 

HAT 

MAT 

MAT 


100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 


IF (J.EQ. (LPANlt-l) ,OR,J,FO, (LPAN2+1) ) IP=1 MAT 520 
IF (JCOT.EQ.l.AND.J.GT.LPANEL) GO TO 30 MAT 530 
GO TO 40 MAT 540 
IF (JKT.EQ.l.OR.JKT.EO. (NjH+1) ) IPcl MAT 550 
CONTINUE mat 560 
IF (J.6T.LPAM.AND.J.LE.LPAN2) 1SN=2 MAT 570 
IF (J.GT.LPANP.ANC.J.LE.LPANEL) IEN=3 mat 580 
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50 

60 


70 

60 

go 


ion 

no 


120 


IF (J.GE.LPAM.AND.J.LT.LPANEL) CC to <50 

MAT 590 

60 TO 60 

MAT 600 

NN=NW<2) 

MAT 610 

IF <J,6E,LPAN2.AND.J.LT.LPANEL) NN=NW(3) 

MAT 620 

CONTINUE 

MAT 630 

IF (J.GE.LPANEL.AND.J.IT.MJO (IND) ) NN=NCJ<IND) 

MAT 640 

CHCRD=CH (IZ) 

MAT 650 

IF (J.EO.Ll) GO TO 70 

MAT 660 

GO TO 80 

MAT 670 

ISN=ISN+1 

MAT 680 

Ll=HJJ(IND)4l 

MAT 690 

NL=FJJ(INO)-l 

MAT 700 

IF (NL.EO.LASTl) GO TO 90 

MAT 710 

IF (J.EO.NL) INC=TND*1 

MAT 720 

CONTINUE 

MAT 730 

X1=XN(J»1)-XCP (IJ) 

MAT 740 

X2=XN<J»2)-XCP (IJ) 

MAT 750 

X12=XN (J»2)-XN (v)*l) 

MAT 760 

Y12=YN (Jt2)-YN fj»l) 

MAT 770 

Z12=ZN<J»2)-ZN(J.n 

MAT 780 

Z1=ZN(J»1)~ZCP (IJ) 

MAT 790 

Z2=ZN(J,2)-ZCP (IJ) 

MAT 800 

XZU=X1»Z12-Z1«X12 

MAT 810 

DO 240 11=1*2 

MAT 820 

IF (lI.EQ.l) GC TO 100 

MAT 830 

N = 1 

MAT 840 

60 TO no 

MAT 850 

N=2 

MAT 860 

CONTINUE 

HAT 870 

YC= (-l.)»»N*YCP(IJ) 

MAT 880 

Y1=YN (J*1)-YC 

MAT 890 

Y2=YN(J*2)-YC 

MAT 900 

XYK=X1*Y12-Y1«X12 

MAT 910 

YZI=Y1*Z12-Z1«Y12 

MAT 920 

ALPlsXYK^XYK + XZJ^XZJ-^ei^YZI^YZI 

MAT 930 

Riei=S(3RT(Xl«Xl+Bl*Yl*Yl + El*Zl*Zl) 

MAT 940 

R2B1=S0RT<X2«X2+P1«Y2»Y2+S1«72*Z2) 

MAT 950 

UUei=(X2«X12+Bl«Y2*Y12481*Z2»Z12)/R2Bl- {X1«X12*E1«Y1*Y12+E1*Z1«Z12MAT 960 

)/RlBl 

MAT ^70 

G1P1=(1.-X1/P1P1)/ (Y1«Y1*Z1*ZU 

MAT 980 

62B1=(1,-XZ/R2PUX(Y2*Y2*Z2»Z2) 

MAT 990 

IF (T.GT.LPANEL) GC TO 130 

MATIOOO 

F1=UUP1*XYK/ALB1 

MATlOlO 

F2=-Y2*G2E14Y1»G1P1 

MAT1020 

IF (J.GT.LPANEU go TO 120 

MAT1030 

H2=F2 

MAT1040 

IF (IP.EG.I.AND.KF.NE.O) H2s-Y2*G2E1 

MAT1050 

60 TO 220 

MAT1060 

F3=0, 

MAT1070 




F«a0. 

NAT1080 


n=?.*Fi 

MAT1090 


F2=2.«F2 

MAT-1-100 


H2=F2 - 

MATH 10 


IF (IP.EC.l .AND.KF.NE.O) hEs-E ,«YZ«62P 1 

MAT1120 


GO TO ?20 

MAT1130 

130 

CONTINUE 

MAT1140 


IF (J.LE.LPANEU 60 TO 150 

MAT1150 


IF {ABS(B1-B2) ,LE. 0,001) GO TO 140 

MAT1160 


ALP2=XYK*XYK4XZJ«XZJ+B2»YZI»YZI 

MAT1170 


R1B2=S0RT (X1»X1+R2«Y1«Y1 ♦B2«Z1*Z1) 

MATllfiO 


R2B2=SQRT (X2«X2 +B2«Y2*Y2+P 2*72*72) 

MAT1190 


UUB2=(X2«X12+P2«Y2«Y12+BP«72*Z12)/R2P2-I 

tXl*X12+E2*Yl«Y12+BP*71*Z12MAT1200 


D/R1B2 

MAT1210 


G1E2=(1.-Xl/Rie2)/(Y1*Y14Z1»Z1) 

MAT1220 


G2B2*(1.-X2/R2B2)/ fY2*Y2+Z?*Z2) 

MAT1230 

* 

GO TO 150 

MAT1240 

140 

ALB2=ALPi 

MAT1250 


UUP2=UUP1 

MAT1260 


G2B2=G2B1 

MAT1270 


G1B2=G1P1 

MAT12B0 

150 

continue 

MAT1290 


IF (I.6T.LAST) 60 TO 160 

MAT1300 


F13=UUP1*X7J/ALP1 

MAT1310 


F12=UU81*XYK/ALE1 

MAT1320 


G13=72«e2Pl-71*GlPl 

MA71330 


G12=-Y2«G2B1+Y1*61P1 

MAT1340 


H13 = 613 

MAT1350 


H12=G12 

MAT1360 


IF (IP.EO.l.ANO.KF.NE.O) H13=72*62P1 

MAT1370 


IF (IP.EQ.l.ANO.KF.NE.O) H12=-Y2«62P1 

MAT13P0 


IF (J.LE.LPANFL) 60 TO IFO 

MAT1390 


FP3=UUB2«XZJ/ALB2 

MAT1400 


F22=UUB2*XYK/ALE2 

MAT1410 


G23=72«6PRP-Z1«61B2 , 

MAT1420 


G22=-Y2«G2B24Y1«61B2 

MAT1430 


GO TO 170 

MAT1440 

1«:0 

F22=0, 

MAT1450 


622=0, 

MAT1460 


F23=0. 

MAT1470 


G23=0, 

MAT1480 

170 

F1=-F13*Y (4»IPHI)« (-1 ,)*«N*F12«Y <3,IPHI) 

MAT1490 


F2=G13*Y(4,IPHI)*(-1,)«*N'*612*Y<3«IPHI) 

MAT1500 


F3=-F23«Y (4,IPHI)«(-1, )**N+F22»Y (3,IPHI) 

MAT1510 


F4=G23«Y(4»IPFI)«(-1,)**N*G22*Y<3.IPHI) 

MAT1520 


H2=H3*Y (4«IPHI)*(-1,) **N+P12«Y(3, IPHI) 

MAT1530 


IF (J.LE.LPANFL) GO TO 210 

MAT1540 


F1=F1*2. 

MAT1550 


F2=2 ,*F2 

MAT15F0 



F3=2,«F3' 

F4=2,*F4 
H2=2,*H2 
GO TO 210 

lao FlsUUBl«YZI/;>LPl 

IF (FXIT.LE, 0.001) 60 TO 190 
IF (NNJ.EQ.l) GO TO 190 

IF (IJ.GT.LPflNFL.^KC.IJ.LE.^'JJ (1) ) VMU = 1. 
IF (IJ.GT.LP/iNEL.AKD.IJ.LF.FJJ (1) ) TEMP=1, 
190 CONTINUE 
F2=0, 

H2=0. 

IF (J.LE.LPANEU 60 TO 200 

F3=UUB2*YZI/ALP2 

F4=0, 

F1=-F1*VPU»VFU»2.*TEFP 

F3a-F3«2. 

60 TO 210 

200 F1=-F1«VPU»VHU«TEFP 
210 CONTINUE 

220 W (II)=(Fl*F2)«CFOPDeSN(PT,ISN) /(F.«FN) 

V {n) = (Fl*H2)»CHORD«SN (N I , ISN ) / (F , «FN) 

IF ( J.LE.LPANFL) 60 TO 2?0 
IF tII.EO.2) 60 TC 230 
K2=II*2 

W(K?)=(F3+F4)«CFCFD«SN(FT,ISN)/{P,«FM 
230 CONTINUF 
240 CONTINUF 

IF <J,LT,MM) 60 TC 250 

1Z=IZ+1 

IP=IP*1 

IFF=MM+1 

MM=FM4.NN 

IF (J.GT.LPANFU JKT=JKT*1 
IF ( JKT.FQ. (NP+1 ) ) JKT=1 
250 CONTINUE 

IF (J.LE.LPANEL) J A=j4.2<tJP ANEL 
IF ( J.GT.LPANEL) JA= J-LPANEL+JPANFL 
AW (JA) =V (1) +V (2) 

BW (JA)»W (1) -W (2) 

SVCJA)=V(1) 

SW (JA)=W ( 1) 

IF (J.LE.LPANEL) 60 TO 260 

J1=J-LPANEL 

AW(J1)=W(3) 

ew(Jl)=W(3) 

VMUs^VUT 
TFVP=TEP 
260 CONTINUE 
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MAT1650 

MAT1660 

MAT1670 

MAT16P0 

MAT1690 

MAT1700 

MAT1710 

MAT1720 

MAT1730 

MAT1740 

MAT1750 

MAT1760 

MAT1770 

MAT17B0 

MAT1790 

MATIPOO 

MATieiO 

MAT1820 

HAT1830 

MAT1840 

MAT1850 

MAT1860 

MAT1870 

NAT1P80 

NAT1P90 

MAT1900 

MAT1910 

MAT1920 

MAT1930 

MAT1940 

MA-T1950 
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MAT1970 
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MAT2000 

MAT2010 

MAT2020 

MAT2030 

MAT2040 

HAT2050 
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IF {KCODE.EQ.O) GO TO 380 


MAT2060 


IF {lUSB, EQ.l. AND. 2JET.GT. 0.01) GO TO 360 


MAT2070 


IF {OFJ,J.E,0.0001 ) 60 TO 360 


MAT2080 


IF INNJ.EQ.I.AND.I^LE.LPANEL) GO TO 360 


MAT2090 


IF (NNJ.EQ.l.AND.I.GT.LPANEL) GO TO 270 


MAT2100 


IF (I.LF.PJvMNl) .CR.I.GT.LAST) GO TO 360 


MAT2110 

270 

CONTINUE 


MATE 120 


IF (I.GT.LAST) GO TO 360 


MAT2130 


IF (IPHI.EQ.NJH) GO T,0 360 


MAT2140 


IF tISYM.NE.O.AND.IPHI.EO.l) 60 TO 360 


MAT2150 


IF (IPHI.LT.NJH) IL=1PHI-ISYP 


MAT2160 


IF (IPHI.GT.NJH) IL=IPP1-NJH 


HAT2170 


PEWIND 2 


MAT2180 


IF {NNJ.EQ.D PJN1=LPANEL 


MAT2190 


IF INNJ.NE.I) MJNloPJvMNl) 


MAT2200 


MF=IJ-HJN1-(IPHI-1)*NCJ(NNJ) 


MAT2210 


FNNJ=NCJ(NNJ) 


MAT2220 


DISTJ=SDF 


MAT2230 


OLX=OISTJ«0.5«PI/FNNJ 


MAT2240 


S2X=-(1.-VMU) 


MAT2250 


10= (IL-1I»NCJ(NN0> 


MAT2260 


CALL SKIP (lOtJPANEU 


MAT2270 


DO 310 dJ=l.VF 


MAT2280 


READ (02) (SV(K) ,K=ltJPANEL) 


MAT2290 


IF (JJ.EO.MF) C-0 TO 280 


MAT2300 


OXTP=nLX«PSI (JJ)/TH 


MAT2310 


GO TO 290 


MAT2320 

280 

DXTP=OLX*PSI (JJ)*0,5/TH 


MAT2330 

290 

CONTINUE 


MAT2340 


PRCC=S7X«DXTK 


MAT2350 


DO 300 K1=1.JPANEL 


MAT2360 


KK=K1+JPANEL 


MAT2370 

300 

AM (KK)=AW (KK)-»PRCD»SV (Kl) 


MAT2380 

310 

CONTINUE 


MAT2390 


IO=NCJ(NNJ)-PF+ ( (NP-1-ISYM)/2-1)«NCJ(NNJ) 


MAT2400 


CALL SKIP (IQ.JPANELl 


MAT2410 


DO 350 JJ=1.NF 


MAT2420 


READ (02) (SV (K> «K=lt JPANFL) 


MAT2430 


IF (JJ.EO.MF) 60 TO 320 


MAT2440 


DXTH=DLX»PSI (JJ) /TH 


MAT2450 


GO TO 330 


MAT2460 

320 

DXTK=DLX»PSI (JJ)«0.5/TH 


MAT2470 

330 

PRCC=S7X*0XTH 


MAT24P0 


DO 340 K1=1»JPANEL 


MAT2490 


KK=K1+JPANEL 


MAT2500 

3A0 

AH (KK)=AW (KK)-PROC*SV (K1 ) 


MAT2510 

3S0 

CONTINUE 


MAT2520 

360 

CONTINUE 


. HAT2530 


IF (EXIT. LE. 0.001) GO TO 370 


WAT2540 



(il 


70 

eo 


1^0 


'AOO 


410 


IF (NNJ.FG.l) GO TO 370 

IF (IJ.GT.LPAKFL.AND.IJ.LF.FJJn) ) VPIJ = 1. 

IF aJ.GT.LPANEL.AND.IJ.LF.FJsid) ) TFMP = i. 
COKTINUF 

IF (I.LE.LAST) GO TO 730 

IF dPHI.FO.NJH) 60 TO 500 

IF (ISYV.NF.O.AND.IPHI.EO.l) GO TO 590 

IF (NNJ.EQ.l) GO TO 450 

IF (IJ.GT.VJJ (NI) ) GO TO 450 

IF (IPHI,GT.^;JH.A^D,ZJET,LE.0,01) 60 TO 450 

IF (IPHI.GT.NJH) L1=NJH 

IF (ISYF’.EO.O.AND.IPHI.GT.NJh) L1 = NJH+1 

IF (IPHI.LE.NJH) 11=1 

N2=l 

IF (NW(?) .NE,0.AK'0,NW(3> ,EQ,0) N2 = ? 

IF {NW(3).NEoO> N7=3 
IF {NNJ.LE.3.AND.NW (2) .NF.O) IP = N2 
IF (NNJ,LE.3.AND.KV*(2) .EO.O) IP=M 
IF (NNJ.6E.4.AND.NV<(3) ,NF,0> IR=N3 
IF {NNJ.EQ,4,AKn.NV( (3> ,E(3.0> IR=N2 
DO 440 NP=1.N7 

KlsFJWl (K'R»NJP)+ (IPHI-L1-ISYP)^»^V^ (KP)-l 

K2=LC (NR) ♦IPHI-L1-I5YF 

KNW=NW{NR) 

K1=K1-KNW 

K?=K?-1 

MR=3 

IF (Kl.GE.O) GO TO 390 

K1=K1+KNW 

K?=K2+1 

MP = 2 

DO 430 NQ=1*RR 
SUH=0, 

SURE=0. 

DO 400 KK=1,KNW 
KL=K1+KK 

ja=kl*h»jpanel 

SUHe=SUMB*SW(JA) 

SUR=SUM*SV (JA) 

CALL INTEG (RFS tKPW »K 1 ,K2 , IJ, P 1 ♦ IR ) 

DO 4?0 KK=1,KN'W 
kl=kukk 
JA=KLt-2»JPANEL 
AA=1 . 

DO 410 L=l9KNk 
LL=K1+L 

IF (L.EO.KK) GO TO 410 

AA=AA*(XCP(IJ)-XV(LL) )/<XV(KL)-XV (LU) 
CONTINUF 


MAT2550 

MAT2560 

MAT2570 

MAT25G0 

MAT2590 

MAT2600 

MAT2610 

MAT2620 

MAT2630 

MAT2640 

HAT2650 

MAT2F60 

MAT2670 

MAT26E0 

HAT2690 

HAT2700 

MAT2710 

RAT2720 

MAT2730 

MAT2740 

PAT2750 

MAT2760 

WAT2770 

MAT27G0 

MAT2790 

MAT2P00 

MAT2P10 

MAT2P20 

MAT2P30 

MAT2P40 

RAT2e50 

HAT2860 

MAT2870 

MATseeo 

RAT2P90 

MAT2900 

MAT2910 

MAT2920 

MAT2930 

HAT2940 

MAT2950 

MAT2960 

►*AT?970 

RAT2980 

MAT2990 

NAT3000 

MAT3010 

MAT3020 

MAT3030 




AW (JA)sAW (JA>-SUt^*AA-RES«AA»VMU-»VKU«TEMP 

MAT3040 

- 

BW (JA)=PW (JA)-'!U>/B«AA-PES<*AA«VMll<*VVU*TF.MP 

MAT3050 

4?0 

CONTINUE 

MAT3060 


Kl=Kl4KNW 

MAT3'070 


K2=K2 + 1 ' 

MAT30P0 

42C 

CONTINUE 

NAT3090 


IpsIP+1 

MAT3100 

440 

CONTINUE 

MAT3110 

45C 

continue 

MAT3130 


IF (KCODE.EQ.O) GC TO 590 

MAT3130 


IF (NW(?),EO.O) NSTRIP=Nrs 

MAT3140 


IF (NWO) .NE.O.ANP.NW (3) .EO.O) N«:tPIP=NC9<»? 

PAT3150 


IF (WWO).NE.O) N?TPIF=NC9«3 

MAT31E0 


IF (IPHI.LT.NJP) IF=NJH+1 

NAT3170 


IF <IPhI,GT,NjH) IP=1SYP+1 

MAT310O 


IF (NNJ.EQ.l) GO TO =00 

MAT3190 


IF (IJ.GT.PJJ(Nl) ) GO TO <=00 

MAT3200 


IF (NNJ.EQ,?) GO TO 510 

MAT3310 


IF nj,GT.Mjj(N2) ) (jO TO 510 

MAT3330 


IF {NNJ,E0,3) GO TO 490 

PAT3230 


IF {IJ.GT.MJJ(N3) ) GO TO 4P0 

NAT3240 


IF { ^NJ.EO.4) GO TC 470 

MAT3250 


IF { <!NJ,EG,5,AKD.I J.GT.PJJ (NN‘J-4) ) GC TO 460 

MAT3360 


L1=N >U-4 

MAT3370 


T7=N =TRIP 

KAT3380 


60 TO F?0 

MAT3390 

4£0 

L1=N3 

MAT3300 


I7=N5TRIP+NP 

NAT3310 


GO TO 5?0 

MAT3330 

470 

L1 = N I 

PAT3330 


I7 = N 3TPIP 

MAT3340 


GO TO 5E0 

MAT3350 

4^0 

L1=N ’ 

RAT3360 


IZ=N5TRIP* (NN,J-3)«NF 

MAT3370 


GO TO 530 

HAT3380 

490 

CONTINUE 

MAT3390 


L1 = N? 

MAT34O0 


I7=NSTRIP 

MAT3410 


GO TO 520 

MAT3430 

«;oc 

L1=NNJ 

MAT3430 


I7=NSTR1P+ (NNJ-1)«NP 

MAT3440 


GO TO 530 

MAT3450 

510 

L1=M 

MAT3460 


IZ=NSTRIP*(NNJ-3)*NP 

MAT3470 

5c0 

CONTINUE 

NAT3480 


I7=IZ*IP 

MAT3490 


NT=NJT 

MAT3500 


IF (ISYP.NE.O) NT=NUT-1 

MA73510 


KNV» = NCJ{L1) 

MAT3530 
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00 5f>0 KP = 1,M 
SUH1=0. 

SU^'^ = 0. 

SUK3=0. 

SUK4=0. 

K1=VJJ (L1)-NP*NCJ (LI ) + (KP-1 )»NCJ (L 1 ) ♦ { IP-1 ) »NCO (LI ) 

00 530 KK=1,KNW 
KL=K1+KK 
KJsKL+JPANEL 
IA=KL-LPAN‘5L+JPANFL 
IB=KJ-LAST 
SUK3=SUM3+SW (lA) 

SUN4=SU^4+BW (IP) 

SUP1=SUP1+SV (lA) 

530 SUP2=SUP2+AW(ie) 

CALL INTFG (RES.KNW»Kl,l7»IJ»ei,Ll) 

IF (ABS(B1-P?) ,LE. 0,001) PO TO tSAO 
CALL INTFG ( RFF, KN V* , K 1 , 1 7 , I J ,P? , L 1 ) 

GO TO 5F0 
540 REFsRES 
550 DO 570 KK=1,KN'W 
KL=K1 +KK 
KJ=KL*JPANEL 
IA=KL-LPANEL*«JPANEL 
ip=kj-last 

AA = 1. 

DO 560 L=1»KNV. 

LL=K1+L 

IF (L.EC.KK) GO TO 560 

AA=AA*(XCP (IJ) -XV (LL) )/(XV (KL)-XV CLL) ) 

560 CONTINUE 

AW (lA) =AW ( lA) -SUM1*AA-RFF»AA«VPU*VMU*TFMP«?. 

AW (10) =AW (IR)-SUV?«AA-PFF*AA«2, 

RW (IA) =PW (lA) -SU^'3 «AA-PFC*AA«VPU«VWu*TFMP*?, 

BW (IB)=BW (IB)-SUV4«AA-PEF*AA«2, 

570 CONTINUE 
IZ=IZ+l 

5P0 CONTINUE 
'590 CONTINUE 
SK = 1, 

IF (IPHI.GT.NJH) SK=-1, 

JI=I-LAST+LPANEL 
K=WC0N-LAST-NCJ (LN) +LPANEL 
JNJ=NCJ (LN) 

DO 610 KK=1,JNJ 

KL=K+KK 

KJsKL+JPANEL 

1 a=kl-lpanfl + jpanfl 
IP=KJ-LAST 
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WAT3610 

MAT3620 

MAT3630 

MAT3640 

MAT3650 

MAT3660 

MAT3670' 

MAT36P0 

MAT3690 

MAT3700 

MAT3710 

MAT3720 

MAT3730 

HAT3740 

NAT3750 

MAT3760 

MAT3770 

MAT37G0 

MAT3790 

MAT3fi00 

HAT3810 

MAT3P20 

MAT3830 

NAT3P40 

NAT3850 

MAT3860 

MAT3870 

KAT38P0 

MAT3890 

MAT3900 

MAT3910 

HAT3920 

MAT3930 

MAT3940 

MAT3950 

MAT3960 

MAT3970 

MAT3980 

MAT3990 

MAT4000 

WAT4010 




Ayi = l. 

MAT4020 


DO 600 t=l.JNJ 

MAT4030 


LL=K-+L 

MAT4040 


IF (L.FO.KK) GO TO 600 

MAT4050 


Afl = 4A*(XCP(JI)-XV(LL) )/(XV(KL)-XVaL) ) 

MAT4060 

600 

CONTINLF 

MAT407O 


BW (lA) =PW {IA)-AAoVFL«VMU»TE*^P»SK 

MAT408O 


PW{1B)=BW{IB)+AA*SK 

HAT4090 


AW(IB)=AW (IB) *AA»?K 

MAT4100 

610 

AW (I A) =AW (lA) -AA«VPU»WU«TEHP«SK 

MAT4110 


IF (I.EG.MCCK.AND.I.LT.LTOTAL) FCCNsf'CON+NCJ (LM) 

MAT4120 


IF (KCOOE.EQ.O) 60 TO 700 

MAT4130 


IF (lUSB, EO.l. AND. 7JET.6T. 0.01) GO TO TOO 

MAT4140 


IF (NNJ.EO.l) GO TO 700 

MAT4150 


IF (IJ,GT,NJJ(M) ) GO TO 700 

MAT416n 


IF (IPHI.LE.NJh) 60 TO 700 

MAT4i7'j 


L1=NJH 

MAT4180 


IF (ISYM.EO.O) L1=NJH*1 

MAT4190 


IF (NW (2) .EQ.O) GO TO 630 

MAT4200 


IF {NH(3).EO,0) 60 TO 6P0 

MAT4210 


IF (IJ.GT.'MJJ(K2) > GO TO 660 

MAT4220 


IF (IJ.GT.MJJ (N3) > GO TO Gi'O 

MAT4230 


IF (NNJ.E0.4) GO TO 640 

MAT4240 


IF (NNJ.EO.S.ANC.IJ.GT.VJJ (NNJ-4) ) 6C TO 640 

MAT4250 


GO TO 700 

NAT4260 

620 

IF (IJ.GT.PJJ (N?) ) GO TO 650 

MAT4270 


IF (NNJ.EQ.3) GO TC 640 

MAT42B0 


IF (NNJ.F0.4.ANC.IJ.GT.NJJ (N3) ) GO TO 4^0 

HAT4290 


GO TO 700 

MAT4300 

630 

IF (NNJ.EQ.2) GO TC 640 

MAT4310 


IF {NNJ.F0.3.AND.IsJ.6T.PJJ (N2) ) GC TC 640 

MAT4320 


GO TO 700 

MAT4330 

640 

K1=PJW1 (l.NJP) +(IPhI-Ll-ISYM)*KW (1 )-l 

MAT4340 


KNWsNW(l) 

MAT4350 


GO TO 670 

MAT4360 

660 

K1=FJW1 (?»NJP) + ( IPhl-Ll-TFYM) (2)-l 

MAT4370 


KNW=NW(2) 

MAT4380 


GO TO 670 

MAT4390 

660 

KlsPJWl (3*NJP) + (IPHI-L1-I5YM)«NW 0)-l 

MAT4400 


KNWsNW (3) 

NAT4410 

670 

DO 6P0 KK=1»KKW 

MAT4420 


kl=ki*kk 

MAT4430 


JA=KL+2*JPA^FL 

MAT4440 


AAsl,, 

MAT4450 


DO 6B0 L=1»KNW 

MAT4460 


LLsKl*L 

MAT4470 


IF (L.EG.KK) GO TP 680 

MAT44eO 


AA=AA*(XCP (IJ)-XV(LL) )/ (XV (KL) -XV (LL) ) 

MAT4490 

660 

CONTINUE 

MAT4ROO 



o u u u 


ORIGINAL PAGE I& 
OF POOR QUALITY 


e'so 

700 


710 

7ffl 

730 

C 


in 

?0 


PW (vfA)=PW(J/S)-AA«VKU«VPU*TF»'P*0.5 
AW (oA) =AW < JA)-AA«VPU«VPU«TEPP«0,5 
COKTINUF 

IP (KCOOE.EO.O) PC TO 730 
IF (ZJET.GT.O.Ol ) C-C TO 730 
IF (DFJ.LE. 0,0001) GO TO 730 
IF {NNJ.EO.D GO TO 710 
IF <IJ.LE,MJJ(M)) GO TO 730 
CONTINUE 

IF (IPHI.EQ.NoH) GO TO 730 

IF (ISYM.NE.O.AND.IPHI.Eo.l) GO TO 730 

DO 7?0 J=1»JPANFL 

Jjsj+JPANEL 

SV (0) =-AVM JJ) 

WRITE (02) (SV (J) ,J=1 .JPANFL) 

CONTTKUF 

VMU=VUT 

TFwpsTFW 

RETURN 

END 

SUPPOUTINE SKIP (I,JPANEL) 

DIPENSION DU>^MY<?00) 

IF (I.FO.O) GO TO 20 
DO 10 J=1,I 

READ (02) (DLPPY (K) .K»1*JPANEL ) 

CONTINUE 

RETURN 

ENT 

OVERLAY (WNGJET.4,0) 

PPCGRAN SOLUTN 

TO SOLVE THE JET CN AND JET OFF ECUATIONS 

GAPMA PUST PE CIPENSIONPD TC HAVE AT LEAST (N+l)**2/A ELFPFNTS, 
WHERE N IS THE ST7E OF THE PATRIX *** 

DIPENSION AWO30). CA(330), GAPPA(25000) 

OIPENSION GAPVP(33(I)» GAPH(130) 

COPPON /SKOOE/ KCCCE 


MAT4510 

PAT4520 

MAT4530 

MAT4540 

MAT4550 

MAT4560 

MAT4570 

MAT4S0O 

MAT4590 

MAT4600 

MAT4610 

MAT4620 

MAT4630 

PAT4640 

MAT4650 

MAT4660 

MAT4670 

MAT46P0 

MAT4G50 

MAT4700 

MAT4710- 

SKP 10 

SKP 20 

SKP 30 

SKP 40 

SKP ?0 

SKP 60 

SKP 70 

SKP 80- 

SOL 10 

SOL 20 

SOL 30 

SOL 40 

SOL 50 

SOL 60 

SOL 70 

SOL 80 

SOL 90 

SOL 100 


COPPON /SCHFPF/ C (2) *X (10,41) tY (10,41) , SLOPE (15) *XL(2»15) »XTT (41) , SOL 110 


1XLL(41) ‘’OL 120 

COPPON /GEOP/ HALFSW.XCP (20(1) ,YCP (200) ,7CP (200) iXLE (50) ,YLE (50) iXTSOL 130 


IE (50) ,PSI (20) ,CH (95) ,XV (200) »YV (100) ,SN(8,8) ,XN (200,2) ,YN (700,2) ,7SOL 140 
2N' (700,2) ,WIDTH (fi) ,YCON (a") , SWEEP (50 ) ,H ALEB ,S J (2 1 1 8 ) .EX (95,2) ,TX (95S0L 150 
3,2) ,SC(160,S) ,SI (160,5) ,LC (3) SOL 160 

COPPON /PARAP/ ALPT ,ALPC,ALPS,cnF»SCF,TH,TCF SOL 170 

COPPON /AERO/ AP1,AP2,P1,P2,CL(30),CT(30),CD(30),GAP(2,130) SOL 180 


COPPON /ADD/ CP(130) ,CP(30) ,PREAK(P),SWP(8,15).GAL(30) ,ISYP,VMU,UUSOL 190 
l,TEPP,FCP.CAPLEP,CAPLEi',CAPTER,CAPTFT,XJ,YJ,7J,PJ.ALP,CREF,TWTSTR SOL 200 



10 

20 


30 


COf^r/ON /CONST/ K'CS,NCWiHl (P) yKSJtNCJ (5) (3,5).»VJViP(3,5) ^OSOL 210 
I'PAKELtMJJ (5) tSWO) ,NNJ,NJP SOL 220 
CONHON /COST/ LTOT* L »LP Ani ,N JW ( 5 ) »LP ANFL ♦ 1ENTN,LPPN2 t EX IT »PTI *L ,TWSOL 230 


nSTVDF(E) ,NFP SOL 240 

COUPON /SOME/ Nr»NWIN6,LAT»NAL«LWF.,LV(FJ,CH0RDT(3) »SN6{5) ,YP(5) ,YCNSOL 250 


'1 (6)„WKN»R0X,MD6*N0G 

'COMMON /FUS/ XF(20) ,XCF<?0) »PF (20) ,« 
lUMtKF,NT»CSF ( 5 * 10 ) # X AS ( 6 ) ,NKF (F).fFO, 
REWIND 03 
REWIND 08 
IUSe=YC0N(24) 

NC=IENTN 

Z2=YC0N(25) 

ITN=YC0N (23) 

IC=1 

J1=LWF*1 

LP1=LWFJ*1 

RBsPl 

RsPP 

DFjs'CDF 

Pl=3, 14159265 

GB0=0. 

SS=SIN(ALP) 

CS=COS (’ALP) 

IF (KF.EO.O) 60 TO 10 
SaXTEF-XLEF 
F0=4 ,«PI«CS*PDX 
F10=-P.*PI«SS«Rrx 
G10 = 0. 

G90=0, 

6R0=O. 

CALL FALONE (S»rs*AW,CA, GAMMA) 

CONTINUE 

CONTINUE 

IG=1 

-MG=NW(1) 

NG=NW(1) 

BEAD (03) (AW(I)..I = 1»J1) 

XP=XCP(1) 

VO=YCP(l) 

ZRsZCPd) 

PHPV=0. 

WN=0. 

IF (IUSEoE0..1.AND.ITN.EQ,0) GO TO 30 
call INDVEL (XPiYP.ZB»XO,YJ*ZO»RJ.PP 
CONTINUE 

IF (KF.EO.O) GO TO 40 

CALL FUSVOL (P * X R . YB , ZB . WN , WK ♦GGO d « 

CONTINUF 


'SOL 260 

NP (5*20) fXLEFf XTEF.WARO (20) ♦N'CSOL 270 

F10»KF,NT'l ‘SOL 280 

SOL 290 
SOL 300 
SOL 310 
SOL 320 
SOL 330 
SOL 340 
SOL 350 
SOL 360 
SOL 370 
SOL 380 
SOL 390 
SOL 400 
SOL 410 
SOL 420 
SOL 430 
SOL 440 
SOL 450 
SOL 46(1 
SOL 470 
SOL 4P0 
SOL 490 
SOL 500 
SOL 510 
SOL 520 
SOL 530 
SOL 540 
SOL 550 
SOL 560 
SOL 570 
SOL 580 
SOL 590 
SOL 600 
SOL 610 
SOL 620 
SO.L 630 
SOL 640 

.PHRV,PHX»TEMP.VU»FMY,ISYM) SOL 650 

SOL 660 
SOL 670 

M SOL 680 

SOL 690 


40 



AW (01 ) =/SW f J1 ) +XTT (IG)+PhPV / (ALPC«VU) *WN 
DO EO 1=1, LWF 

50 GAPVA(I)=-AW(I + U/AW(n 
N0=LWF-1 
DO no IJ=2»LWF 
READ (03) (AW(K) ,K=1 ,J1) 

WN=0, 

XR=XCP(IJ) 

YP=YCP(IO) 

2B=ZCP (IJ) 

IF (lUSP.EO.l.ANC.ITN.EO.O) 60 TO 60 

CALL INDVEL (XB , Yfi , ZG , XO , YJ ,20 ,R0 ,0B .PHP V ,PHX ,TEMP ♦ VU , PHY , IS YM ) 
60 CONTINUE 

IF (IJ.LE.LPANEL) ALPT = XTT ( 16 ) 

IF (IJ.GT.LPANEL) GO TO 70 
GO TO 60 
70 ALPT*0. 

I = IJ-*LPANEL 
IF (I.GT.NF) GO TC 90 
KI = I 

XS=XCF(KI)-XTEF 
XB=XCF(KI)-XLFF 
IF (KI.EG.NF) PFL=0, 

IF (KI.NE.NF) PFL=XS/SQPT (XS»XS*PPRF (KI ) *RF (KI) ) 

RFl = XS*n.+RFL) 

PFO=XB« (1 .*XP/SGPT (XPoXP+P*RF (KI)«RF (KI) ) ) 

ALPT=SS«RF (KI) *RF (KI) - (RF 1-RFO ) *F 1 0/ ( A .»P I ) 

GO TO 90 

60 IF (KF.EO.O) go TC 90 

CALL FLSVOL (B , x’P , YP ,ZP , WN , WK ,GP0 , 1 , 0 ) 

90 CONTINUE 

AW (J1)=AW(J1)+PHPV/ (ALPC«VU) ♦WN+ALPT 
IK=Id 

CALL VMSEQN (N J , TK , AW ,GAPHA ,CA ) 

NJ=NJ-1 

IF (IJ.GF.LPAM .AND,TJ,LT.LPAN2) N6=NW(2) 

IF (U.GE.LPANP.ANC.IJ.LT.LPANFL) NP=NW(3) 

IF (IJ.LT.HG) go TC 100 

IG=IG*1 

NG=PG*N6 

100 IF (IJ.EQ.LPANI.CR.IJ.EO.LPANS) 16=1 
110 CONTINUE 

DO 120 1=1, LWF 
120 GAH(IC,I)=GAHHA(I) 

IF (ABS (B1-P2) .LE. 0.001) GO TO 130 

TCsIC+l 

BPsP? 

R=PG 

IF (TC.GT.2) 60 TC 130 


SOL 700 
SOL 710 
SOL 720 
SOL 730 
SOL 740 
SOL 750 
SOL 760 
SOL 770 
SOL 780 
SOL 790 
SOL POO 
SOL 810 
SOL 820 
SOL 830 
SOL 8A0 
SOL 850 
SOL 860 
SOL 870 
SOL 880 
SOL 890 
SOL 900 
SOL 910 
SOL 920 
SOL 930 
SOL 940 
SOL 950 
SOL 960 
SOL 970 
SOL 9P0 
SOL 990 
SOLIOOO 
SOLlOlO 
SOL1020 
SOL1030 
SOL1040 
SOL1050 
SOL1060 
SOL1070 
SOL1080 
SOL1090 
SOLllOO 
SOLlllO 
SOL1120 
SOL1130 
S0L1140 
SOL1150 
SOL1160 
SOL1170 
SOLllPO 
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GO TO ?o' S0LI190 

130 COKTINUE SOL1200 

VNUC=V^'U«flLPC SOL1210 

C/SLL SQLUJ ( VNUC ♦ VyU * TEMP, LPANEL»LPAM,LPAN2«LWEJ,LT0T/»L»L/'ST,ISYVS0L1 220 

l*KCCOE»FXlT»NVi*KCJ.PJWl«^'JJ»NA,NJP,7Z»CAPTER,CAPTET»YCF*HALFe*DFJfSOL1230 



2TDF,GAPW,GAPMA,AVi,CA,0PANEL»t'JV'2t0,»0..0, ,0,F10»NTL»KF) 

SOL1240 


J7=^JPANEL + 1 

SOL1250 


IA=2*JPANEL 

SOL1260 


JPAM = IA + 1 

SOL1270 


no 140 I=1*LWFJ 

SOL12PO 

140 

GAPVR(T)=6AmkA (I) 

SOL1290 


IP (lUSP.FG.l.ANr.ITN.EG.O) GO TC 210 

SOL1300 


IG=1 

50L131 0 


MG=Kwn ) 

S0L1320 


NG=hwm 

.SOL1330 


R=P1 

S0L1340 


REWTMn 03 

S0L1350 


REAC <03) (AWd) .I=1«J1) 

SOL1360 


WNsO, 

S0L1370 


IF tKF.EQ.O) GO TC 150 

SOL1380 


XQ^XCP (1 ) 

SOL1390 


YO=YCP { 1 ) 

SOL1400 


70=7CP{1) 

90L1410 


CALL FUSVOL (P,XC,YG.ZG»WK,WK,GP0.1t0) 

90L1420 

lEO 

CONTINUE 

S0L1430 


AW(J1)=AW(J1)+XTT(IG)+WN 

SOL1440 


DO lAO 1=1, LWF 

. SOL14FO 

160 

GAFf'A{I)=“AW (T + l )/AW <1) 

SOL1460 


NJ=LWF-1 

SOH470 


DO 210 TJ=2,LV,F 

90L14PO 


RFAC (03) (AVMK) ,K = 1 , Jl) 

90L1490 


WN = 0. 

SOL1500 


IF (IJ.LE.LPANFL ) ALPT=XTT(IG) 

SOL1510 


IF (IJ.GT.LPANFU go TO 170 

5OL1520 


GO TO leo 

SOL1530 

170 

ALPT=0. 1 

5OL1540 


I=IJ-LPAKEL 

SOL1550 


IF (I.GT.NF) GO TC 190 

SOL1560 


KI = I 

SOL1570 


XS=XCF (KIl-XTFF 

S0L1580 


XR=XCF(KI)-XLEF 

5OL1590 


IF (KI.FQ.NF) PFL=0, 

SOL1600 


IF (KI.NE.NF) RFL=XS/SQPT(XS*XS+P*RF(KI)*PF(KI) ) 

SOL1610 


RFl = XS«n.+RFL) 

SOL1620 


RF0 = XP*n. + X8/9nRT(XB*XP*PPPF(KI)*RF(KI) ) ) 

SOL1630 


ALPT=S£*RF(KI)#PF(KI)-(PF1-RF0)«F10/(4,*PI) 

SOL1G40 


GO TO IRO 

S0L1650 

IPO 

IF (KF.FO.O) GO TO 190 

SOL1660 


XO=XCP (IJ) 

S0L1670 




Y0=YCP(TJ) 

50L16P0 


7Q=ZCP(IJ) 

S0L1690 


CALL PUSVOL (P.XCJ,YC,70,VK,WK,PP0,1,0) 

SOL1700 

l'?0 

CONtlNUF 

50L1710 


AW(Jl)=AW(Jl)+hN+ALPT 

S0L1720 


TK = IJ 

SOL1730 


CALL V^'SEQ^ (K)J,IK,AW.GAf^KA,CA) 

50L1740 


NJ=N J-1 

SOL1750 


IF (IJ.GE, LPAN1.AND.IJ.lt. LEAN?) NG=NW(2) 

S0L1760 


IF (IJ.GF.LPANP.ANC.IJ.LT.LPANFI ) NG=NW(3l 

S0L1770 


IF (IJ.LT.f^G) Gr TO 200 

SOL17PO 


IF=IG*1 

SOL1790 


f^G=VG + N6 

5OL1P00 

?00 

IF (IJ,FG.LPAN1.0P.IJ,EO.LPAN2) IG=1 

SOLlPin 

210 

CONTINUE 

SOL1P20 


DO 220 1=1, LWF 

SOL1B30 

220 

PAf^ {2.I)=GAMMA f I) 

S0L1840 

CC 3 

116 

S0L1P50 


GO TO 250 

SOL1P60 

230 

DO 240 I=l.LtaF 

SOL1P70 

240 

GAN <2,15=04^ (1 ,1) 

soLieeo 

2,50 

CONTINUE 

S0L1890 


CANsCANLEP 

SOL1900 


CAKT=CANLET 

S0L1910 


CALL TPPUST {LT0TAL,LPANEL.GANVP,GANV,,CAN.LPAM ,vu»xj,yo 

, ZJ,RJ,TFNS0L19?0 


IP.GAL. I*:YN,LPAN2.CAMT,GNG,YG»LWF,LWFJ, AW,CA,CV,0 . ,0.,0. . 

1) S0L1930 


DO 260 I=l,LVtF 

S0L1940 


IP=T*TA 

S0L1950 


TC=1 

S0L1960 

260 

OP n )=GAMVR(IB) 4GAN (IC,I) 

S0L1970 


IF (LAT.NE.l) GC to 270 

SOL1980 


REWIND 02 

S0L1990 


REWIND 07 

SOL2000 


WRITE (07) (CC (I ) , 1=1 *NC«) 

SOL2010 


WRITE (02) (CN (I) ,1 = 1 .NC«:) 

SOL2020 


CALL LATOIP (KF» AW»CA,6ANVA,CP,GANW«VNUC,NA,ZZ»YCP,HALFe 

,OFJ,TDF,KSOL2030 


1COCF»F10,NTL) 

SOL2040 

270 

CONTINUE 

S0L2('Sn 


CO 2«0 1 = 1, LWF 

S0L2060 


PC=ALPC 

SOL2070 


IF (I.GT.LPANEL) FC=1. 

50L20PO 


IP=I4IA 

SOL2090 


CP{n=CP{I)*ALPC 

SOL2100 

220 

GANVR (IP) = (GANVP ( IP) +GAM ( 1 , I )) «PC 

SOL2110 


WRITE (OP) (GAMVR :l) ,1 = 1 ,LWFJ) 

SOL2120 


RETURN 

S0L2130 

C 


50L2140 


END 

S0L2150' 
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lT,ISYy,KCOOE.ExlT,NW»NCJ,h'JWl ,MJJ,NA,NJP,Z7 

, CANTER 

,CAHTET.YCP,HALFSLJ 

20 

2‘^»CFJ«TDF,6/kyw.EAyyAtAW»rA,JPANFL »M JW? , P »FE'T »RL » L7 »F 1 0 »NTL ♦ KF) 

SLJ 

3(1 

niFEN’SlON NW(1), KCJCl). POlwlO,!)* WJJd), 

YCP (11 

4 GANHAdl, AwnSLJ 

40 

1) » CA(n* GAyi«(n. yjw2"(3,i) 



SLJ 

50 

REWIND 09 



SLJ 

60 

IPt-I-1 



SLJ 

70 

MJ=LPANFL + NCJ(1 ) 



SLJ 

PO 

LP1=LWFJ+1 



SLJ 

90 

NA=3 



SLJ 

100 

IF (NW(2).EG,0) NA=1 



SLJ 

110 

IF {NW (2) .NF.O.AND.NW (3) ,FO,0) KA=2 



SLJ 

120 

INK = 1 



SLJ 

130 

JNN = 1 



SLJ 

140 

IsLAST+1 



SLJ 

150 

IF (L7.E0.0) PFAC (03J ( A W (K ) , K = 1 4 LVtF J ) 



SLJ 

160 

IF {L7.NE.0) RFAF (091 ( AVi (K ) , K= 1 4 L M|F J ) 



SLJ 

170 

CALL STPFAN ( ALPH A t VNUC , I , IPHI fLF ANEL 4TEMP , 

LPAM.LPANP.ISYH.KCODE 

4 SLJ 

180 

1EXIT4MJ,GAMW,P4PET4RL»L74KF4NTL4F10) 



SLJ 

190 

AW(LP1 )=ALPHA 



SLJ 

200 

DO in I=1,LWFJ 



SLJ 

210 

RAyyA{I)=-AW(I*l)/AW (11 



SLJ 

220 

KI = 2 



SLJ 

230 

NI=LWFJ-1 



SLJ 

240 

LI=LAST*2 



SLJ 

250 

IH=NW(NA1 ♦yjVkl (KA4NJP1-1 



SLJ 

260 

KJ=l I 



SLJ 

270 

IF (LI..FT.LAST1 KJ=LI-JPANEL 



SLJ 

280 

IF (L7.EC.ni PFAC (031 ( AW (K1 ,K=1 *LWFJ} 



SLJ 

290 

IF (L74NE.01 PFAC (09} (AW (K ) ,K=1 »( WFJ) 



SLJ 

300 

ALPHA=0, 



SLJ 

310 

IF (KI .GT.LTOTALl PC TG 40 



SLJ 

320 

CALL STREAV ( ALPH A , yMUC ,L 1 1 IFHI »LP ANBL 4 TENP 

.LPANl , 

LPAN2,ISYy,KCOCESLJ 

330 

1 ♦FXTT,yw4eAyWtPtPET4RL4L7 4KF4ML»F 1 0} 


, 

SLJ 

340 

IF (L74NE401 GO TC 40 



SLJ 

3E0 

IF (KCODE.EQ.Ol GO TO 40 



SLJ 

360 

IF (7Z.GE.0.01} GO TO 40 



SLJ 

370 




SLJ 

380 

ADDITIONAL EXTERNAL FLCW DFFLFCTlON !«= ALLOWED 

IF THE 

JET ANGLE IS 

SLJ 

390 

GRFATFR than THF FLAP ANGIE PFCAUSE OF THE 

EFFECT 

OF FINITE TPAI- 

SLJ 

400 

LING-EDGF angles. FCR thin AIRFOILS* THIS CAN PE FLIHINATEC BY 

SLJ 

410 

INSERTING THE STATFVENT, IF (KCOCE .FO . 1 1 GC 

TO 63 


SLJ 

420 




SLJ 

430 

IF (LI .GE.HJWl (NA.NJPl .AND.LI .LF.yjW2 (NA.NJPl 1 GO 

TC 30 

SLJ 

440 

GO TO 40 



SLJ 

450 

IF (LT.AE.IH) GO TO 40 



SLJ 

460 

IF { (DFJ-TOFl .LT.0.1 GO TO 40 



SLJ 

470 

C7T=CAyTER-(CAKTFP-CAyTETl»YCP (L 1 1 /HALF6 



SLJ 

480 

APA=n,5*(DFJ-TrF+C7T) 



SLJ 

490 

IF (VMU.GT.0.P5) AFA=APA«(l.-VMUl/n.l? 



SLJ 

500 


‘30 



415 


50 


60 


70 


eo 


<;o 


IOC 

no 

120 


c 


IP <AP4.LT.O.) AFfl=n, 


su 

510 

ALPhA=ALPHA+ftp^ 


SLJ 

520 

IH=IH*KVi <NA) 


SLJ 

530 

CONTINUE 


5LJ 

540 

AW (L'’1)=ALPHA 


SLJ 

55 0 

CALL VMSEQN (N T » K I , A W |C- AwF A , CA 5 


SLJ 

560 

IF (KJ.LT.WJ.OR.KJ.EO.LAST) GO TO FO 


SLJ 

570 

IPHT=IFHI+1 


SLJ 

580 

WJ=vj+NCJnNM 


SLJ 

590 

continue 


SLJ 

600 

WJI=MJJ(INK)-1 


SLJ 

610 

IF (KJ.FG.WJI) pc TO 6(1 


SLJ 

620 

PO TO 70 


SLJ 

630 

JNN=INK 


SLJ 

640 

INN=IN\*1 


SLJ 

650 

IF (KJ.FG.WJJ(JNK) ) IPFT=1 


SLJ 

660 

IF (LI.FO.LTCTAL ) GO TO Pf) 


SLJ 

670 

GO TO OC 


SLJ 

68 0 

cominlf 


SLJ 

690 

IPEI=1 


SLJ 

700 

Mj = LDANFL*NCJn) 


SLJ 

710 

JNN = 1 


SLJ 

720 

INK = 1 


SLJ 

730 

CONTINUE 


SLJ 

740 

KI=KI*1 


SLJ 

750 

1 

II 


SLJ 

760 

IF (LI.FO.LTCTAL) GC TO 100 


SLJ 

770 

IF (LI. FO. LAST) GO TO 110 


SLJ 

780 

LI=LI+1 


SLJ 

790 

GO TO 120 


SLJ 

800 

li=lpanfl*i 


SLJ 

810 

on TO 120 


SLJ 

620 

LI = ) 


SLJ 

830 

CONTINUE 


SLJ 

840 

IF (KI.LE.LWFJ) GC TO 20 


SLJ 

850 

RETURN 


SLJ 

860 



SLJ 

870 

FNC 


SLJ 

800- 

SUPPOUTINE LATDIP (KF , A W . C A ,6AWW A , G AW VR , 6AWW 

,VWLC,NA,7Z»5rCP,HALFP 

.LAT 

10 

ir)FJ.TDF,KCODE,F10,NTL) 


LAT 

20 

niWENSiCN AW(1), CA(1). GAWWA(l), GAWVR(l), 

GAWN(I), YCP(l) 

LAT 

30 

COWWON /AERO/ AW 1 , AW2 f P 1 ,P? , CL ( 30 ) ,CT ( 30 1 ,CD (30 ) ,G AW (2 , 130 ) 

LAT 

40 

COWWON /SCMB/ KC.N-W1N6.LAT.NAL,LWF ,LWFJ,CH0RDT (3) »SN6 (5) tTG (5) .YCNLAT 

50 

1(6) »WKN»R0X,WDG.NP6 


LAT 

60 

COWWON /CCNST/ NCS * NCW . W 1 ( 8 ) * NS J ♦ NC J ( 5 > . LAST 

.W^Wl (3,5) .WJU2 (3»5> , 

JLAT 

70 

1PANEL,wjj(5) ,NW(3) ,NNJ,NJP 


LAT 

90 

COWWON /ADD/ CP ( 130) »CM (30) *BRFAK (8) ,SWP (8 # 15) »GAL (30) » ISYW ♦VMUtVULAT 

90 

1 ,TFWP,FCR»CAWLEP.CAWLET,CAWTER,rAWTET,XJ*YJt 

7J»RJ*ALP,CREF.TWISTR 

LAT 

100 

COWWON /COST/ LTOTAL »LPANnNJW (5) .LPANEL t lENTN *LF AN? ,FX I T » PTl AL «TWLAT 

no 



10 


?0 


30 

40 

50 

60 


70 


PO 


lISTtDF (5) .NFP 


LAT 

120 

RFWIND 1 


lat 

130 

IA=2*JPANEL 


LAT 

140 

CAP=CAI^LFR 


lat 

150 

capt=camlet 


LAT 

160 

DO 10 i=i»lpanel 


LAT 

170 

GA»^PA(I)=FAy{2,l) 


LAT 

IPO 

CALL GAPAX (AW»CA,LPAN1 ,LPANEL ♦GAPMA »N'CtPPEAK ,SWP»CHCFDT 

,LPAN2 

tNWILAT 

190 

1NG,1) 


LAT 

200 

WRITE (02) (CA (I) ,I=1,LPA^EU 


LAT 

210 

CALL GAPAX (AW.CA,LPAM»LPAKFL,GAPVP»KC,BREAK»ShP»ChOPDT 

,LPAN2 

.nwilat 

220 

1NG,0) 


LAT 

230 

WRITE (07) (CA (I) ♦I=1,LPAKFL) 


LAT 

240 

P=1 . 


LAT 

250 

PET = 0. 


lat 

260 

RL = 0, 


LAT 

270 

■ L = 1 


lat‘ 

280 

B = F1 


lat 

290 

DO 100 J=1.3 


lat 

300 

IF (KF.KE.O) go to 20 


LAT 

310 

IF (RET.GT.0,,ANC.PCG,FG,0) GC TO 30 


LAT 

320 

IP (PL,gt.o,,and,pcg.eo,o) go TC 30 


LAT 

330 

CONTINUE 


LAT 

340 

CALL LATERL (GAPPA,AW.CA,LPANFt .! PAM .LPAN2,LWF»DF,NAL»SN6,YG» 

B,P,LAT 

350 

1RFT.PL) 


LAT 

360 

WRITE (01) (GAPPA(I) .I=1.LWF) 


LAT 

370 

GO TO 50 


LAT 

3P0 

DC* 40 kk = 1.LWF 


LAT 

390 

GAPPA (KK ) =0, 


LAT 

400 

WRITE (01) (GAPPA ( I ) »I = l .LWF) 


LAT 

410 

CONTINUE 


lat 

420 

(10 60 I = 1.LWF 


LAT 

430 

6APW(I)=GAPPA(I) 


LAT 

440 

CALL SOLUd (VPUC.VPU.TEPP.LPANFL.LPAM.LPAN2.LWFJ.LT0TAL 

.LAST, 

ISYPLAT 

450 

1.KCC0E.FXIT,NW.NCJ»PJW1.PJJ.NA,N'JF,77,CAPTEP,CAPTET,YCP. 

halfb. 

dfj.lat 

460 

2TOF.GAPW.GAMPA,AW,CA,JPANEL.PJW2,P,fiET,RL.l,F10.NTL»KF) 


LAT 

470 

DO 70 I=1.LWF 


LAT 

480 

IR=1A+I 


lat 

490 

GAPPA (IP)=GAPPA (IP) +6APW (I ) 


lat 

500 

WRITE (OR) (GAPPA (I) ,1=1 ,LWFJ) 


lat 

510 

call THRUST (LTOTAL.LPANEL. GAPPA, GAP)., CAM, LPAM.VU.XJ.YJ 

,7J,RJ 

.teplat 

520 

io,gal,isyp,lpan?,capt,sng,yg,lwf,lwfj,aw,ca,cp,f,eet,rl» 

0) 

LAT 

530 

WRITE (07) (CC(I) ,I=1»NCS) 


LAT 

540 

WRITE (02) (CP(I) ,I=1,NCS) 


LAT 

550 

call GAPAX (AW,CA,LPAN1 .lpanel ,gapw,nc,preak,swp,chordt. 

LPAN2, 

NWINLAT;?60 

16,1) 


LAT 

570 

DO eo K=l , lpanel 


LAT 

580 

IB=K+IA 


LAT 

590 

GAPPA {K)=6APPA (IP) 


LAT 

600 
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^0 


100 


CALL GAt'AX 
INGiO) 

IF (J.EG.2> 
IF (J.EG.3) 
BET=1. 

P=0. 

GO TO 100 
RL = 1 . 

BFT=0. 

COMINUF 

RETURN 

END 


60 

60 


TO 

TC 


00 

100 


tnu LAT 

SUBROUTINE STREAM ( ALPH A , VMU » I . IPH .LP ANEL »TEMP , LPAN 1 ,LPAN2 , ISYM,KSTR 
1C0DE.EXIT,mj,gAVV(,F.PETiRL»LZ*KF,NTLiF10) . STR 

TO r^AUDIITP TUC n T r? IJ T U A lu H CTHC C X IJ t CfTkIItt x A II C /M i e xri 


TO COMPUTE THE RIGHT HAND SIDE CF THE SIMULTANEOUS EQUATION’S 
DIMENSION PHINOOOJ* GAHW(l) 

DIMENSION FJS(30). FJA(30)» CQP(2,30) 

/CCHEME/ C(2),xno«Al),V(10 »A1) ♦SLOPE ( 15) ,XL (2« 15> tXTI 


COMMON 
IXLL(Al) 

COMMON /6E0M/ HALFSVr.XCP (POO ) , YCP ( 200 ) ♦ 7CP ( 200 ) , XLE (50 ) tYLF (50) .X 
IF (SC) fPSItPO) ,CH (05) »XV (POO) ,YV{ 10 0) ,SN (8»8) fXN (200*2) ,YN ( ?00t2) ♦ 
?N (PCOfE) ♦WIDTH (8) ♦ YCON (?5) *SWFFP (5n),HAlFP,SJ(21,8)*EX(95»?),TX(9 
3.2)tSC(160^‘i),5J(lfO,S),LC(3) 

COMMON /AERO/ Ami,AM2^P1,P?,CI (30) ,CT(3D),CR( 10),GAM(?,130) 

COMMON /CONST/ Nrc.NrW.MIffll.NS.l.Nr.lfm.l 


COMMON /CONST/ 

IPANEL^MJJ (5) *NW(3) ♦NNJ.NJP 
COMMON /PARAM/ ALPT.ALPC.ALPStCDF^SDF^TH 
EOLIVALFNCE ( X ( l ♦ 1 ) , PH IN (1 ) ) 

PI=3. 14159265 
IUSe=YCCN(24) 

7JFT=YCCN(25) 

BK = ‘^ ,*PI/1P0. 

N1=NNJ-1 

N2=NNJ-P 

N3=NNJ“3 

IF (NNJ.EO.l) M = 1 
NJH= (NSJ*1) /P*l 
IF (ISYM.EQ.O) NJH=NSJ/P 
NP=N JH-1 

IF (ISYM.FG.O) NP=NJH 
ALPHA=0. 

IF (I.GT.LPAN'EL) GO TO 10 
60 TO 310 

IF (I.GT.LAST) GO TC 110 
IF (EXIT, LE. 0.001) GO TO ?0 
IF (NNJ.EO.l) 60 TC 20 

IF (I,LE.MJJ(1) .AND.I.NE.MJ) G(i TC 310 
CONTINUF 


iTDF 


NWILAT 

610 

LAT 

620 

lat 

630 

LAT 

GAO 

lat 

650 

LAT 

660 

LAT 

670 

LAT 

680 

LAT 

690 

lat 

700 

lat 

710 

lat 

720 

lat 

730 

M,KSTR 

10 

. STR 

20 

STR 

30 

STR 

40 

STR 

50 

1) ,STR 

60 

STR 

70 

♦XTSTR 

. 80 

) ♦PSTR 

90 

(95STB 

100 

STR 

110 

STR 

120 

) *JSTP 

130 

STR 

140 

STR 

150 

STR 

160 

STR 

170 

STR 

180 

STR’ 

190 

STR 

200 

STR 

210 

STR 

220 

STR 

230 

STR 

240 

STR 

250 

STR 

260 

STR 

270 

STR 

280 

STP 

290 

STR 

300 

STR 

310 

STR 

320 

STR 

330 

STR 

340 

STP 

350 

STR 

360 



30 

40 




60 


70 


80 

50 


TF (L7.NE.O) GO TC 30 
ALPHA=4LPS/ALPC»Y (3 ♦ IPH I ) » (1 WL ) 

IF (KCODE.EQ.O) ALPHA=0. 

IF (TH.LE. 0,001) GO TO 40 
IF (IPHI .EQ.NJH) GO TO 40 
IF (ISYF,NE,0.AN-D.IPHI,EG,1) go to 40 

IF (KfNJ.EQ.l.ANr.I.GT.LPANEU ALFHA=ALPHA + CDF» (1 ,-VHO) 

IF (NMJ,NE.1.AND.I.6T,MJJ(M)) ALPhA=ALPHA + COF« ( 1 .-Vf'U ) 
60 TO 40 

ALPPA={-8ET»BK«Y(4»IPHI) +P*YCP (I) /HALFR»Y(3» IPPI) +RL«XCP 
1Y<4.IPHI) )«(1.-VFU> 

CONTINLE 

IF CAPS (B1-B2) ,LF. 0,001) GO TO 50 
IF (L7.NE.0) Gf TO 50 

call NCRSPD (I,ALPH,LPANEL«IPHI.LPAN1,LPAN2,KF»NTL»F10) 

ALPPA=ALPHA4.ALPH 

TF (KC0DE,E0,0) GO TO 310 

IF (EXIT, LE, 0,001) GO TO 60 

IF (NNJ.EO.l) GO TO 60 

IF (1,LE,MJJ(1).AN;0,I.F0.MJ) ALPhA = ALPHA/2 . 

IF (IPHI,EQ,NJH) go to 310 
IF (LZ.NE.O) GO TC 310 

IF (ISYM,NE,0.AKr.IPHI,FO.l) GO TC 310 
IF (lUSP.EQ.l .AND, ZJET.GT. 0.01 ) PC TO 310 
IF (CDF,LT,0,0n01 > GO TP 310 
IF <NNJ,EG,1) GP TO 70 
IF (1,LF,MJJ(M; ) r-C TO 310 
IF {IPPI,LT,NJH) IL=IPPI*ISYP 
IF riPHI ,GT,NJH) rL=IPHI-NJh+IFYP 
IF (NNJ,EO,l) m^,ni=LPAKFL 
IF (NNJ,NE,1) mjn;i=VJJ (Nl ) 

PF=I-MJM- tIPHl-l)*NCJ(NK'J) 

FNAJaNCJ (NNJ) 

DI«=TJ=SCF 

dlx=distj»o,5«pi/fnkj ■ 

S7X = -n,-VFU) 

I0=(IL-1)«NCJ(KNJ) 

IF (NNJ.EO.l) TP=LFANEL*I0+1 
IF (NNJ.NE.I) IP=NJJ (N1) ♦10*1 

no mo jj=i.NF 

IF (JJ.EO.HF) eC’ TO PO 
nXTPsDLY -»PSI (JJ) *TFNP*VPL«VMU/TP 
GO TO O') 

DXTH=DLX*PSI (JJ)<‘TFFP»n.5*VPU«VMU/TH 

JK1=IP*JJ 

JK2=JK1-1 

PRCC = 57X*DXTt- 

JK3=JK2+NP*NCj (NKJ) 

*LPHA=ALPHA+PRrn« (FPIN(JK2)-PHIK(JK3)) 


STR 370 
STP 3.80 
STR 350 
STR 400 
STR 410 
STR 420 
STR 430 
STR 440 
STR 450 
(I)/HALFB»STR 460 
STR 470 
STR 480 
STR 490 
STR 500 
STR 510 
STR 520 
STR 530 
STR 540 
STR 550 
STR 560 
STR 570 
STR 580 
STR 590 
STR 600 
STR 610 
STR 620 
STR 630 
STR 640 
STP 650 
STR 660 
STR 670 
STP 680 
STR 690 
STR 700 
STR 710 
STP 720 
STR 730 
STP 740 
STP 750 
STR 760 
STR 770 
STR 780 
STP 790 
STR 800 
STR 810 
STP 820 
STR 830 
STR 840 
STR 850 



ion COMTNUF 
GO TO 31P 
nC CO^TTNUE 

J J=I-JPANEL 
J7=] 

K3 = 0 
KO=0 
FAC=1. 

IF (KCODE.EO.O) C-0 TO 590 
IF (FXIT.LE.O.OI) GC TC 1?0 
IF (NNJ.EQ.l) GC TO 1?0 

IF (IJ.GT.LPANFL.ANC.IJ.LE.f^JJdn GO TO 310 
1?C CC^7INUE 
AnDT=0, 

IF (KF.FO.O) GC TO 170 

call FGPEFD <ei ,yCF (IJ) ♦YCP (I J) ,7CP (IJ) .C0 P»VkK 1,UK2) 
ALi=0. 

IF (L7.EQ.0> AL1=F10«V.K2 
DO 130 LK=l,NTL 
IF L7.FG.0) FFF=CGF(?»LK) 

IF 'L7.NE.0) FFF = CQF < 1 ,LK) 

KK=lPANEL+LK 

IF ,LZ*FQ.0) GAsFAP (1 ,KK) 

IF (L7.NE.0) GA=GAPW<KK) 

130 AL1=AL1+FEF*GA 

IF APS (Bl-R?) .LF.O.nOl ) GO TC 150 
IF (L7.KE.0) GO TC 150 

call FSPEFO <P?,XCP<TJ) .YCPdOl ,7CP(IJ1 ,C0P.1<K1,HK2) 
AL? = 0. 

IF (L7.EQ.0) AL7=F10*V.K2 

DO 140 LK=1,NTL 
IF (L7.FO.O) FEF=CGF {?,LK) 

IF (L7.NE.0) FPFrCGF ( 1 .LK) 

KK=LPANFL*LK 

IF tLZ.EP.O) C-A = 6AM <2.KK) 

1^40 AL? = AL3+FEF*GA 

GO TD 160 
150 AL2=AL1 

160 ADCT=AL7-TEMpovPU«VPU*ALl 
17n COMINUF 

IF (lUSP. FO.l. AND. 7JFT.GT. 0.01) GC TO 790 
IF IK'NJ.EC.I) GC TO ?90 
IF {IJ,6T.MJJ(M) ) GO TC ?90 
IF (IPHI.LE.NJH) GO TO 290 
L1=F JH 

IF (ISYP.EO.O) L1=KJH*1 
IF {NWI?).EQ,0) go to 190 
IF :NW (3) .EG.O) GO TC IPO 
IF f IJ.GT .MJJ (N?) ) GO TO 240 


STR afco 
STR P70 
STR 880 
STR PRO 
STR 900 
STR 910 
STR 920 
STR 930 
STR 940 
STR 950 
STR 960 
STR 970 
STR 980 
STR 990 
STRIOOO 
STRIOin 
STR1020 
STR1030 
STR1040 
STR.1050 
STPIOGO 
STPlOTn 
STR1080 
STRIORO 
STRl 100 
STRlllO 
STR1120 
STPliao 
STP1140 
STR1150 
STR1160 
STR1170 
STRlieo 
STPllRO 
STR1200 
STR1210 
STR1220 
STR1230 
STR1240 
STR1250 
STR1260 
STR1270 
STR1280 
STR1290 
STR1300 
STR1310 
STR1320 
STR 1330 
STR1340 
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leo 


1^0 


;2Q0 


21P 


12 PO 




■240 


25(1 


2f (1 


IF (IJ.GT.f'JJtKS) ) GO TO ?20 


STR1350 

IF (NNJ,EQ,4) GO TO 200 


STR1360 

IF (NNJ.FQ.5./1ND*IJ.6T.HJJ (NKJ-4) ) GO 

TO 200 

STR1370 

GO TO 290 


STR13P0 

IF (IJ.6T.MJJ{N2n GO TO 220 


STR1390 

IF (NNO.EQ.3) go TO 200 


STR1400 

IF (NNJ.E(3.4.AND.1J.GT,MJJ (N31) GO TO 

200 

STR1410 

GO TO 290 


STR1420 

IF (NNJ.EQ.E) GO TO 200 


STR1430 

IF (NNJ,EQ,3,4NC.IJ,GT.^^o‘J(N’2) ) GO TO 

200 

STR1440 

GO TO 290 


STR1450 

K1=FJW1 (l.NJP) + (IPH-L1-ISYK)«NW (1 )-l 


STR1460 

K2=IC{1) +IPHI-L1-I5YP 


STR1470 

KNW=NW (1 ) 


STR1480 

IF (IJ.NE.MJ) 60 TO 260 


STP1490 

IF (EXIT.LE.O.OI .AhC.NW<2> .KE.Ol GOTO 

210 

STR1500 

GO TO 260 


9TR1510 

JZ = 2 


STR1520 

K3=LPAN1*(K2-1)«NW(P) 


STR1530 

K0=^W{2) 


STR1540 

FAC=n,5 


STR1550 

GO TO 250 


STP1560 

Kls^JWl (2,NJP)4 (IPHI-Ll-IFYPl^NW (2)-l 


STR1570 

K2=LC(2) +IPHI-L1-I5YM 


STR1580 

KNW=NW (2) 


STR1590 

IF (IJ.NE.PJ) GO TO 250 


STR1600 

IF (APS (EXIT-! .) .LE.0.0 01 .AND.KW (3) ,NE 

.0) GO TC 230 

STR1610 

60 TO 250 


STR1620 

J7=2 


STP1630 

K3=LPAK2+ (K2-1-NCS)*NW(3) 


STP1640 

KQ=NW (3) 


STR1650 

FAC=0,5 


STR1660 

GO TO 250 


STR1670 

K1=HJW1 (3»NJP) ♦ (IPHI-L1-I?YP)«NW (3 )-l 


STRlGfiO 

K2=LC(3) +IPHI-LJ-ISYV 


STR1690 

KNW=NW(3) 


STR1700 

CONTINUE 


STR1710 

ALPhAl=0, 


STR1720 

ALPEA2=0. 


STR1730 

DO 2R0 JL=1»JZ 


STR1740 

DO 270 KK=1,KNW 


STR1750 

KL=K1*KK 


STR1760 

AArl . 


STR1770 

DO PfiO L=1»KNW 


STR1780 

LL=Kl4L 


STR1790 

IF (L.EQ.KK) GO TO 260 


sTRieoo 

AA=AA» (XCP (IJ) -XV (LL>) / (XV (KL)-XV (LL) ) 


STR1810 

CONTINUE 


STR1820 

IF (LZ.EO.O) GA=f-AH (1 ,KL) 


STR1830 



r> P) 


IF (LZ.NF.O) Gfl=GaVW(KL) 

ALPHAlsALPHAl*A/l«6fl 

IF (ABS (H1-B2) ,LE, 0.001) GO TO ?70 

IF (LZ.FO.O) 6A=6AP<2»KL) 

IF (LZ.NF.O) GA=GAPW(KL) 

alpha?=alpha?+aa«ga 

COKTINUE 

KNV«=KO 

K1=K3 

alphai=alphai*fac 

ALPHA2=ALPHA?«FAC 

IF ( ABS (Pl-B?) ,LE. 0,001 ) ALPHAJsALPhAl 
ALPI-A= (ALPHAJ-TFHP*VMU»V>»L'*ALPhAn *0.5 + ARDT 
GO TO 310 
CONTINUE 

CALL SPFED ( VPU . I * ALPHA , LPANEL ♦ TEPP .LP ANl , LPAN2 ,PH IS « IPP I , ISYH»( 
1W,L7) 

alpha=alpha«fac+acct*fac 

IF (KCCDE.EO.O) go to 310 

IF (CDF, LT. 0,0001 ) GO TO 310 

IF (NNJ.EQ.l) GO TO 300 

IF (IJ,LE,MJv(M) ) GO TO 310 

PHIN (IJ) =PHIS 

CONTINUE 

RETl RN 


END 

SUPPOUTINE GAP AX C AW ,C A , LPANl ,LP ANEL »G AMHA .NC . BRE AK , SWP ,CHCPOT »l 
1N2,NWIN6,KZ) 

PIKENSION AW(1), CA(1), GAMPA(l), PPEAK(l) 

DIPENSION SWP(P,15) 

DIMENSION G(10), CHORDT(l) 

DIMENSION A(l'=;), F(15), THETACIS) 

COMMON /AEPO/ AMl,AH?,ei,P2tCL(30) ,CT(30) *00(30) »6AM(2,130) 
COMMON /6E0M/ HALFSW . XCP ( 200 ) ,YCP (200) ,7CP ( 200 ) »XLE (50 ) ♦ YLE (50 ) ^ 
lF(Fn.PSI(20).CH(^5).XV(2n0).YV(100)»SN(8*8),XN(200*2),YN(200»2) 
2N (20 0.2) .WIDTH (P) .YOON (25) .SWEEP (50 ) .HALFP ,S J ( 2 1 . 8 ) ,EX ( 95 .2 ) .TX ( 
3.?),SC(16n,5).SI(160»5),LC(3) 

COMMON /CONST/ NCS.NCW.Ml (P) .NSJ,NCJ(5> .LAST.MJWl (3.5) .MJW? (3,5) 
IPANf L.MJJ(5) ,KW(3) .NNJ.NJP 
PI=3. 14159285 
DO eo 1=1. NCS 
NA=1 

NK=(I-1)»NW(1) 

SUMI=0, 

NWV=NW(1) 

ISN = 1 
FN=NW (1) 

N1=NWW+1 


10 



DO 20 J=1,NWW 

KK=NK'+J 

Fjsj 

THETA‘{Jr=-{2.<>FJ*l. )»PI/ (2.«FN) 

F (v‘)=6AMNA(KK)«SN (J.ISN) 

20 CONTINUE 

TMETA(N1)=PI 
no 40 J=1»N1 
A {05=0, 

FJ=J 

no 3 0 K=riN'wvi 

30 A ( J) =A ( J) ♦F (K)«CCS { (FJ-4 . ) *7HETA (K) ) 

IF (J.EO.l) A ( J)-=A (J) /FN 

IF (J.NE.l) A ( J) =A (U)«2./FN 
40 CONTINUE 

00 fO K=1,M 
KK=NK*K 

SUF=A ( 1) «THFTA (K> 

DO =0 J=1,N'WW 
FJ=J 

50 SUF = SUN + A‘(J*1>*FIN (FJ»THFTA«K) )/FJ 

17=1 

IF (NA.F0.2) I7=I*NC<; 

IF (NA,EO,3) I7=I+2*Nrs 
SUF = -0.5«CH(IZ)«EUF*SUN'I 
IF (K.EO.Nl) GO TO tO 
AW (KK)=SUN> 

60 CONTINUE 

IF (NA,EQ,3) GO TC 70 

IF ( {NA-»D ,LE.3. AND.NW (NA*1 ) .EG.O) GO TO 70 

NA=NA*1 

NWW=NW INA) 

IF (NA.F0.2) N'K=LPAM» (I-i ) «NW (2) 

IF (NA.EQ,3) NK=LPAN?4. ( I-n«M« (3) 

ISN=ISN+1 
FNsNWW 
SUPI=SUP 
GO TO ro 
’TO CONTINUE 

80 CONTINUE 

NKl = n 
nk?=lpani 

NK3=LPAN2 
DO 250 I=1«NC 

hap=halfb 

(I ) 

FPsP . . 

MH=P-1 

DO 90 Jal,PM 


GAP' 230 
GAP 240 
GAP, 250 
GAM' 26'0 
GAM 270 
GAP 2P0 
GAP 290 
GAP 300 
GAP 310 
GAP 320 
GAP- 330 
GAP 340 
GAP 350 
GAM 360 
GAP 370 
GAP 3P0 
GAM 390 
GAP 400 
GAP 410 
GAP 420 
GAP 430 
GAP 440 
GAP 450 
GAP 460 
GAP 470 
GAP 480 
GAP 490 
GAP 500 
GAP 510 
GAP 520 
GAP 530 
GAP 540 
GAM 550 
GAP 560 
GAM 570 
GAP 580 
GAP 590 
GAP 600 
GAP 610 
GAP 620 
GAP 630 
gap 640 
GAP 650 
GAP 660 
GAP 670 
GAM 680 
GAP 690 
GAM 700 
GAP 710 


'X>RIG]NAIj PAGE iSi 
OF POOR QUAIOT 



FJ = J 

YCCK (J»=COS (FJ«PI/Fy ) 

Y=0,5«WIDTH(I)«(1.-YCON(J) )+BPEAK(I) 

<50 PSI (J>=SQRT (1 tY/H«P)»«E) 

DO P30 J=ltNCW 
G(J)=0, 

IF (J.GT.NWd) ) PC TO 100 

NK=NK1 

LKcO 

IR1 = I 

JJ=J 

MKsNW (1) 

GO TO 120 

100 IF ( J,GT. <NW (1 ) +NV. (2) ) ) GC TO 110 
NK=NK2 
MK = NW (?) 

LKsNVMl) 

IP1=I+NC 
JJ=0-Nh (1) 

GC TO 1?0 

no NK = hK3 

MK = KW (3) 

LK = NW ( 1 > +NW (2) 

IR1 = I*2«N’C 

JJ = J-NW{1)-NV»<?) 

\?0 L1=NK*0-LK 
L2=L1+PK 
L3=L2+PK 
SPsSWPCwIJilRl) 

CS=COS(SP) 

TAKsSIN (SP) /CS 
SM=0. 

■DO 140 LO=l,FP 
LP=L1*(L0-1)*PK 
A A = 1 , 

DO 130 LS=1»VM . 

LK=L1+(LS-1)*VK 
IF (LS.EQ.LO) GC TO 130 

AA=AA*(RREAK (I )-YCP (LN) ) / (YCP (LP)-YCP (LM ) 
130 C0^T1NUE 

140 SM=SM+AA«AW (LP)«PSI (LO) 

GAFAO=S^' 

IF (I.EO.NC) GC TO 170 
SM=0, 

DO 160 L(3=l*Yy 

LP=Ll+(LO-l)«yK 

AA=1. 

DO 150 Ls=i»vy 
LN=L]+(LS-l)«yK 


GAH 720 
GAM 730 
GAM 740 
GAM 750 
GAM 760 
GAM 770 
GAM 7P0 
GAM 7<30 
GAM 800 
GAM 810 
GAM P20 
GAM 830 
GAM 840 
GAM 850 
GAM 860 
GAM 870 
GAM PPO 
GAM 890 
GAM 900 
GAM 910 
GAM 920 
GAM 930 
GAM 940 
GAM 950 
GAM 960 
GAM 970 
GAM 980 
GAM 990 
bAMlOOn 
GAMlOlO 
GAM1020 
-AMI 030 
( AM1040 
GAM1050 
GAM1060 
GAM1070 
GAM1080 
GAM1090 
GAMl 1 00 
GAMlllO 
GAM1120 
GAM1130 
GAMl 140 
GAMl 150 
GAMl 160 
GAMl 170 
GAM1180 
GAMl 190 
6AM1200 


.original 
OF POOR quality 



150 

160 

170 

IPO 


190 

200 


210 


220 

<:3o 

240 

250 

C 


IP (LS.EQ.LQ) GO TO 150 GAM1210 

AA=AA*fBREAK(l4n-YCP(LM ) / (YCP (LP ) -YCP (LN) ) GAM1220 


CONTINUE 

SH=cm*AA*AW (LP)*PSI (L0> 

GAPAN=SH 
GO TO 180 
GAPANsO, 
no 210 K = l»Mf^ 

LL=KK* CK-1) *MK + J-l.K 
CA aL)=0, 

DO 200 KK=1*NP 
LI=NK+ (KK-1 )«NK+J-LK 
IF (KK.EQ.K) go to 190 
CA{LL)=CA{LL)*2.*(-1.)*«(K + KK)«A»*(LI 
lYCCN (K) ) ) 

GO TO 200 

CA(LU=CA(LL)*AW(LU*PS’l (K)«YCON(K)/ 


GAN1230 
GAP 1240 
GAP1250 
GAP1260 
GAP1270 
GAP1280 
GAP1290 
GAM1300 
GAP1310 
GAM1320 
6AP1330 

*PGI (KK) / (WIDTH (I) «(YCON(KK)-GAP 1340 

6AH1350 

'GAM1360 

WinTH(I)*SJ (K,I)*SJ(K,ln GAM 1370 


CONTINUE GAP1380 

CA{LL)=CA<LL)+GAPAC«(-1.)*»K/(1,-YC0N(K)) /WIDTH (I)-GAMAN*(-1,)«* (MGAM1390 
!♦»<)/ (1 ,+YCON (K ) )/WlDTH (I) 4AW (LL)«YCP (LI ) / (HAE«HAB«PSI (K) ) GAN14 00 

CA(LL)=CA(LL)/PSI(K> GAM1410 

IF (I.NE.NC) GC TO 210 GAP1420 

G (U) =G { J) +AW (LL) «PSI (K)«(-l.)««(K+Pi/n ,+YCON (K) ) GAP 1430 

CA (LL) =TAN»GAPMA (LL ) *rA (LL) gap 144 0 

IF (J.EO.NW(l)} NK1=LL GAP1450 

IF ( J.EQ, (NW (1 1 *NW (21) ) KK?=LL GAP14FO 

IF (T.EO.NC) GO TO 220 6AP1470 

GO TO 230 GAP14P0 

CO^TINUE GAP1490 

G (w) = 2 ./WIDTH (I)*G(J) +0.5«(-l.)»*P*GAMAO/WIOTF(n GAP1500 

G ( J) =6 ( J) »SQR r (HAP 1/2.8284271 24 6AH1510 

CL(J)=G(J) GAP1520 

CONTINUE GAP1530 

NK3=UL GAP1540 

IF (I.EO.NC) GO TC 240 GAP1550 

60 TO 250 ■ GAP1560 

continue GAM1570 

IF (KZ.FO.O) WRITE (07} (CL ( JJl ♦v'J = l .NCW) 6AP1580 

IF (KZ. NE.O) WRITE (021 (CL ( JJ) »UJ=1 »NCW) GAP1590 

CONTINUE 6AP1600 

RETURN 6AP1610 

GAP1620 


E’fg(3 GAP1630 

SUPPOUTINE LATFRL (GAPH A , AW ,CA ,LP ANEL .LPANl ,LP AN2 f LWF , DF *NAL .SNG « YLRL 10 
1G,P,P.8ET.RL) t-RL 20 

OIPENSION GAPPA(l), AW(1), CA(l)t DF(1), SNG(1)» YG(1) LRL 30 

COPPON /GEOM/ HALFSWfXCP (200) ,YCP (200) .ZCP(200) .XLE (50) »YLE (50) fXTLRL 40 
IE ( = 0) tPSI (20) ,CH (95) ,XV (200) ,YV (100) .SN (8,8) tXN (200,2) *YN (200*2) ,ZLRL 50 
2N (20 0,2) .WIDTH (8) ,YrON (25) .9WFFP (50) ,HALFR,SJ (2 1 , 8 ) ,EX (95 ,2 ) ,TX (95LRL 60 




3,2) ,SC (160»5) tSI (160»5) .LC (31 


LRL 

70 


CO^'^^ON /CONST/ NCS»NCW»M1 (8) ,NSJ»KCJ(5) ,LAST«H^jW1 O*^) 

.PJW2(3,5) 

♦ JLRL 

80 


IPANELtNJJ (5) ,KW (3) »NNJ.NJP 


LRL 

90 


COMNON /FUS/ XF(20) .XCF (20) ,PF (20) ♦SNP(5«20) ,XtEF,XTEF 

♦WARD (20) . 

NCLRL 

100 


1UM,NF,NT»CSF(5.) 0) »XAS (6) ,NKF(E) »FO,F10»KF,ML 


LRL 

110 


L1»LWF+1 


LRL 

120 


REWIND 04 


LRL 

130 


PI=3. 14159265 


LRL 

140 


SK=SN6 (1 ) 


LRL 

150 


BK=5,*PI/iaO. 


LRL 

160 


READ (04) (AW(I) ,I=1»L1) 


LRL 

170 


AW (L1)=P«YCP (1) /HALFB + PK«SK«PET-RL»XCP (1) /HALFF«SK 


LRL 

180 


WN=0, 


LRL 

190 


IF (KF.EQ.O) GO TO 10 


LRL 

200 


X=XCP(1) 


LRL 

210 


Y=YCP (1) 


LRL 

220 


7=7CP(1) 


LRL 

230 


WK = 0. 


LRL 

24 0 


6=0. 


LRL 

250 


CALL FUSVCL (E . X . Y,2 . WN , WK ,6 » 1 , 1 } 


LRL 

260 

!0 

AW(L1)=AW(L1)*WN 


LRL 

270 


CO ?0 I=1*LWF 


LRL 

2A0 


GAPFA(I)=-AW(I+1)/AW(1) 


LRL 

290 


NJ=l WF-1 


LRL 

300 


MP=^W (1 ) 


LRL 

310 


NN=rw ( 1) 


LRL 

320 


KW = 1 


LRL 

330 


17=1 


LRL 

340 


DO 00 IJ=2,LWF 


LRL 

350 


READ (04) (AW (K) ,K=1,L1) 


LRL 

360 


IF (IJ.LE.LPANEL) 60 TO 30 


LRL 

370 


I=IvrLPANEL 


LRL 

380 


AW(L1)=0. 


LRL 

390 


IF (I.6T.NF) 60 TO 70 


LRL 

400 


AW (L 1 ) = ( -BK»PET+PL«XCF ( I ) /h ALFB ) *RF ( I ) »PF ( I ) 


LRL 

410 


GO TO 70 


LRL 

420 

TO 

IF (YCP(IJ) .GT.Y6 (KW> ) GO TO 40 


LRL 

430 


60 TO 50 


LRL 

440 

AO 

KW=KW+1 


LRL 

450 


SK = <=NG{KW) 


LRL 

460 

50 

AW (LI )=P«YCP (IJ) /hALFP+BET«8K*SK-PL*XCP(IJ)/hALFB*SK 


LRL 

470 


WN = 0. 


LRL 

480 


IF (KF.FQ.O) GO TO 60 


LRL 

490 


X=XCP (IJ) 


LRL 

500 


Y=YCP (IJ) 


LRL 

510 


7=2CP (IJ) 


LRL 

520 


CALL FUSVOL (B»X.Y.2»WN,WK.G.1.1 ) 


LRL 

530 

60 

AW(L1)=AW(L1)+WN 


LRL 

540 

70 

IK=IJ 


LRL 

550 



PO 

qo 

c 

c 


10 


call VMSEQN (K'J, IK.AWfCAf'h/A ,CA) 

NJ=NJ-1 

IF (IJ.GE.LPAM.AND.IO.LT.LPAN?) ^N=NH(2) 

IF (IJ.GE.LPAN2.AND. IJ.LT.LPAMFL) NN=NW(3) 

IF (IJ.LT.MM) C-0 TO SO 

MM=KM+NN 

17 - 17*1 

IF (IJ.EQ.LPAM.nR.IJ,FQ.LPAN2) 12 = 1 
IF (IJ.EQ.LPAM.OR.IJ.EQ.LPAN2) KW = 1 
CONTINUE 
RETURN 

END 

SUPROUTINE INDVEL (XD » Y « 70 . X J* YJ ,7 J , R J »P2 , PHRV »PHX »T , t «PFY ♦ I SYN ) 
TO COMPUTE TEE INDUCED VELOCITIFS DUE TO OFT ENTRAINMENT 
OIMEN«?ION VZ{2). VX(2). VY(2) 

COMMON /JET/ PKl .XC, X (31) , A on tP (31) 

RFJ=T 
V7 (2)=0. 

VX (2)=0. 

VY (.-)=0. 

SPJ SQRT(REJ) 

XP= ( XO-X J) /Rw 
NCC’=ISYM+1 

DC AO K=ltNCCT 
IF (K.FC.l) FC=1. 

IF (K.E0.2) FC=-1. 

RPrcQRT ( (ZD-7J) *«2+ ( Y«FC-YJ) *»?) /RJ 
Fl=«:ORT( (XP-XC)«*2 + B?«RP«RF) 

F2=30BT (XP»«2+P?«RP«PP) 

61 0= (XB-XC) /F1-XP/E2 
G?0 = 1 ./Fl-1 ./F? 

SUMR=- (A (1 ) ♦E (1 ) «XB) *G10/PP-F?*RP»P (1 ) *620 

SUMX=(A(1) *R (1 ) «XB) *G2 0-P (1 ) «G10*E (1 l«ALOG ( (XB-XC + Fl ) / (XBvF2) ) 

IF (U.LE.O.ni) r-C TO 20 
J=2 

SUM1=SUMR 

SUM2=SUFX 

Fl=SOPTt (XR-X(J) )o«2*e?»PP«RP) 

F2=S0RT : (XR-X < J- 1 ) ) ««2 + P2*RB«cP ) 

Gl= (XB-X (J) ) /FI- (XE-X (J-1) ) /F? 


LRL 560 
LRL 570 
LRL 5P0 
LRL 590 
LRL 600 
LRL 610 
LRL 620 
LRL 630 
LRL 6A0 
LRL 650 
LRL 660 
LRL 670 
LRL 680- 
I()ID 10 
IND 20 
IND 30 
IND 40 
IND 50 
IND 60 
IND 70 
IND PO 
IND 90 
IND 100 
IND 110 
IND 120 
IND 130 
IND 140 
IND 150 
IND 160 
IND 170 
IND 180 
IND 190 
IND 200 
IND 210 
IND 220 
IND 230 
IND 240 
IND 250 
IND ?60 
IND 270 
IND 280 


G2=l ./Fl-1 ./F2 IND 290 
5UMP=SUMR- (A ( J) *P ( J) »XB) «G1/PB-P2«PP*P ( J) <>G2 IND 300 
SUMX=SUMX*(A(J)+B {J)*XP)«G2-P(vJ)«Pl*P{J)«AL0G( (XP-X{J)+F1)/(X8-X(JIN0 310 


1-1 ) *F?) ) 

IF (J.GE.31) GC TC 30 
' J=J*1 


IND 320 
IND 330 
IND 340 


GO TO in 


IND 350 


SUMR=5UMR*0.3?« . 1 . ♦ ( XP-XC ) /F 1 ) /RP 


IND 360 





SUt'X=SlMX-0.32/Fl 

IND 

370 

30 

PHPVsSRJ^O.aS^SUt'P* (ZJ-ZH) /(RP«RJ) 

IND 

380 


PHY=-SRJ*0.25«SUMP» (Y-YJ«PC)/ (PR*PJ) 

IND 

390 


PHX=-SPJ«0.25*SUHX 

IND 

400 


VX (K)=PHX/2, 

IND 

410 


VY (K)=PHY/2. 

IND 

420 

40 

VZ tK)=PHRV/2. 

IND 

430 


PHRV=VZ (11 *VZ<2) 

IND 

440 


PHX=VX(1)+VX(2) 

IND 

450 


PHY=VY (1) +VY (?) 

IND 

460 


RETURN 

IND 

470 

C 


IND 

480 


END 

IND 

490- 


SUBROUTINE SPEED ( VMU , I , ALPH A ,LPflNEL *TEMP *LPAM , 

LPAN2,PHIS,IPHI,ISSPD 

10 


1YM»6AMWiLZ) 

SPD 

20 

C 

TO COMPUTE THE INDUCED TANGENTIAL VELOCITIES DUE 

TO WING ALONE SPD 

30 

C 

VOPTICES 

SPD 

40 


DIMENSION SU(100)» GAMW(l) 

SPD 

50 


COMMON /SCHEME/ C(?l *X(10»41),Y(I0,41) ,SL0PF(15) 

,XL(2,15) ,XTT(41) ,SPD 

60 


1XLL(4U 

SPD 

70 


COMMON /GEOM/ HALFSW.XCP (200) ,YCP (200) ♦ZCP (20O) , 

XLE(S0),YL (50),XTSPD 

80 


1E(E0)»PSI(20) ,CH (q5>»XV(200)»YV(100)»SN(8,P)»vN(200*2),YN(200*2) ,ZSPD 

90 


2N (200,2) ,WIDTH(P) ,YCON (25) .SWEEP (SO ) ,HALFR , SO f?l 

,8),EX(95,2),TX(95SPD 

100 


3,2) ,SC (160.S) ..SI ( 160,5) ,LC (3) 

SPD 

110 


COMMON /AERO/ AM 1 , AM2 ,P1 ,P2 ,CL (3 0 ) ,CT (30 ) , CD (30 ) 

,GAM(2,130) SPD 

120 


COMMON /CONST/ NCS »NCW ,M I (8 ) ,NS J ,KCJ (5 ) , L AST ,MvjW 1 ( 3 , 5 ) »M JW2 (3 , 5) ,JSPD 

130 


1PANEL»MJJ(S) ,NW (3) ,NNJ,NJP 

SPD 

140 


Nl=NNJ-l 

SPD 

150 


N2=NNJ-2 

SPD 

160 


N3=NNJ-3 

SPD 

170 


7JFT*YCON(25) 

SPD 

180 


II=I-JPANEL 

SPD 

190 


BR=81 

SPD 

200 


IC=1 

SPD 

210 

10 

CONTINUE 

SPD 

220 


IZ=1 

SPD 

230 


MM = 0 

SPD 

240 


1SN=1 

SPD 

250 


NLsNW(I) 

SPD 

260 


NM=NH(1) 

SPD 

270 


P = 0. 

SPD 

280 


DO 7(1 Js=l,LPANEL 

SPD 

290 


JJ=U-MM 

SPD 

300 


FN=NL 

SPD 

310 


IF ( J.GT.LPANKAND.U.LE.LPAN?) ISN=2 

SPO 

320 


IF (J.GT,LPAN2.AND.J,LE.LPANEL ) ISN=3 

SPD 

330 


IF (O.GE.LPAM.AND.J.LT.LPANFL) go to 20 

SPD 

340 


GO TO 30 

SPD 

350 

20 

NL=KW(2) 

SPD 

360 






IF (J.C'E.LPANS.AND.O.LT.LFANEL) NL=NW(35 

SPO 

370 

30 

CONTINUE 

SPD 

3P0 


XI=XN(J,1)-XCP(II) 

SPO 

390 


X2=XN(J,2)-XCF (II) 

SPD 

400 


X12=XN(J,2)-XN(J,1) 

SPD 

410 


Y1P=YN(J,2)-YN (J,1) 

SPD 

420 


71=^N(Jfl)-2CP(II) 

SPD 

430 


Z2=7N(Jt2)-7CP(II) 

SPD 

440 


712=ZN(J»2)-ZN (J,l) 

SPD 

450 


XZJ=X1»Z12-Z1«X1P 

SPO 

460 


DO €0 K=l,2 

SPD 

470 


IF (K,F(3,]) GO TO 40 

SPD 

480 


N = 1 

SPD 

490 


GO TO 50 

SPD 

500 

40 

N=2 

SPD 

510 

30 

CONTINUE 

SPD 

520 


YC=(-1 .)»«N*YCP (II) 

SPD 

530 


Y1=YN(J»1)-YC 

SPD 

540 


Y2=YN(J*2)-YC 

SPO 

550 


XYK=XI*Y12-Y1*X12 

SPD 

560 


Y7I=Y1«Z12-Z1*Y12 

SPD 

570 


ALP1=XYK«XYK+X7J*XZo+PP«YZI«Y7I 

SPD 

580 


P1P1=S0RT (X1*X)+PP'*Y1«Y1+PR*71«71) 

SPD 

■^90 


P?P1=S0PT (X?«X?+PpeY2«Y2*P0«Z2»Z2) 

SPD 

600 


UUP1 = (X2*X12 i-BP*Y2oYl2 + PP«72«712) /P?B1-(X1*X' 

? + PB«Y1«Y12*-3P«Z1*712SPD 

610 


1) /RlPl 

SPD 

620 


F) =tJUPl»YZI/ALei 

SPD 

630 


IF (L7.E(3.0) G4 = GAV(IC,J) 

SPD 

640 


IF (LZ.NF.O) GA=GflPW(0) 

SPD 

650 


SUP=F1«CH(IZ)0SK (JJ»ISN)«GA/FN 

SPD 

660 


IF (K.EO.l) 5U(J)=F1*CP (IZ)»SK (JvJtlSN) /FN 

SPO 

670 

f 0 

B=P*SUP 

SPD 

680 


IF (J.LT.NM) 6C TC 70 

SPD 

690 


IZ=I7+1 

SPD 

700 


PPsNM 

SPD 

710 


NP=KV*NL 

SPD 

720 

70 

CONTINUE 

SPD 

730 


NJH= (NSJ + 1) /2+1 

SPO 

740 


IF (ISYP.EQ.O) NJP=NSJ/2 

SPD 

750 


IF (IPHI.EQ.NJP) GO TO 140 

SPD 

760 


IF (ISYP,NE.0.fiNr.IPHI.E(5,l) GO TC 140 

SPO 

770 


IF (NNJ.EG.l) GO TO 140 

SPD 

780 


IF (II.GT.NJJ(M) ) GO TC 140 

SPD 

790 


IF (IPHI.GT.NJH.AND.ZJFT.LE.O.OI ) GO TO 140 

SPD 

800 


IF (IPHI.GT.NJH) H=NJH 

SPD 

810 


IF (ISYP.E(3.n. AND. IPHI.GT.NJH) L 1 =NJM *1 

SPD 

820 


IF (IPHI.LE.NJH) Ll=l 

SPD 

030 


N7=l 

SPO 

840 


IF (NW (2) .NF.O.AND.NWO) ,E0,0) N? = 2 

SPD 

850 



IF ,NE,0) N7 = 3 

IF (NNU.LE,3.ANC.NW(2) ,NF,0) IR=K-? 

IF {NN0,LE,3,AND.hh {2) .EO.O) IR=M 
IF (^INJ,GE,4.A^D,^■V( (3} .NF.O) IR=N3 
IF (NNJ.EO,4.J!l^D,^'W f3) .EO.O) IR=N? 
no 130 MP=I,NZ 

K1=HJW1 (HP,NJP) ♦ (IPHI-U-ISYf^l^NW (HP)-l 

K2=LC{MP)+IPHI-L1-ISYK 

KNh=NW(FP) 

K1=K1-KNW 

K2=K?-1 

FR=3 

IF (Kl.C-E.O) GO TC 80 

K1 = K] ♦KK'W 

K?=K2+1 

MRS? 

GO DO 120 NRsl,MR 

SUM=0. 

DO 90 KKs1,KKW 
KL=K1 *KK 

90 SUK=SUM*SU (KL) 

CALL INTEG (RFStKKW,Kl,K?,II,BPf IR) 
COPNsO, 

DO no KK=1,I-NV 
kl=ki*kk 

A4sl . 

DO TOO L = 1.K^^< 

LL=K]+L 

IF (L.EG.KK) go TC 100 
AA=AA» (XCP (II)-XV (LL) )/ (XV (KL)-XV (LL) 1 
100 CONTINUE 

IF (LZ.EO.O) 6A=GAM (IC,KL) 

IF (L7,NE.0) GAsGAMW(KL) 

110 CORNsCORN*AA«GA 

B=G-CORN«SUM+COPN«RE<;*G, 

KlsKl-fKNW 

K2sK?*l 

120 CONTINUE 
IR=IR+1 

130 CONTINUE 
140 CONTINUE 

IF (IC.FG.2) GO TC 150 
ALPFAl=P/e. 

ICsIC*l 

PB=B? 

IF (ARS(E1-P2) ,LF. 0,001) GO TO IfO 
GO TO 10 

150 ALPHA2=P/P, 

GO TO 170 


SPO 860 
SPD 870 
SPD 880 
SPD 890 
SPD 900 
SPD 910 
SPD 920 
SPD 930 
SPD 940 
SPD 950 
SPO 960 
SPD 970 
SPD 980 
SPO 990 
SPDIOOO 
SPDIOIO 
SPD1020 
SPD1030 
SPD1040 
SPD1050 
SPO1060 
SPD1070 
SPD1080 
SPD1090 
SPDllOO 
SPD 11 10 
SPDl 120 
SP01130 
SPD1140 
SPD1150 
SP01160 
SPD1170 
SPD 11 80 
SPD1190 
SPD120O 
SPD1210 
SPD1220 
SPD1230 
SPD1240 
SPD1250 
SPO1260 
SPD1270 
SPDIPPO 
SP01290 
SPD1300 
SPD1310 
SP01320 
SPD1330 
SPD1340 



160 ALPHA2=ALPHA1 SPD1350 

170 ALPHA=ALPHA2-TFMP«VMU*VMU«ALPHA1 SPDl-^60 

PHIS=ALPHA2 SPD1370 

RETURN SP01360 

C SPD1390 

ENO SPD1400- 

SUEROUTINE NORSPD { I t ALPH ,LPANEL ♦ IPHI ,LPAN1 ,LPA^2 ,KP,NTL tFlO) NRD in 

C TO COMPUTE TPE INDUCED NORMAL VELOCITIES DUE TO WING ALONE NRD 20 

C VORTICES NRO 30 

DIMENSION AW(30). BW(30) NRD 40 

COMMON /SCHEME/ C (2 ) , X (1 0 » 4 1) » Y (10 ,4 1 ) .SLOPE ( 15 ) .XL (2 ♦ 15 ) ,XTT (41 ) ,NRO 50 
1XLL(41) NRD 60 

COMMON /GEOM/ H ALFSW » XCP (200 ) . YCP (200 ) .ZCP (200 ) . XLE (50 ) . YLE (BO) .XTNRD 70 
1E(50) .PSI (20) .CH (SS) .XV (200) .YV ( 100) .SN (8,8) .XN (200.2) .YN (200.2) ,ZNRD 80 
2N (200,2) .WIOTHO) ,YC0N(25) .SWEEP (5 0) .HALFP.SJ (21 ,8) ,EX (95 , 2 ) ,TX (95NRD 90 
3.2) ,SC(160.5) ,SI (160,5) ,LC (3) NRD 100 

COMMON /AERO/ AM 1 , AM2 .8 1 ,P2 . CL (30 ) ,CT ( 30 ) .CD (30 ) .GAM (2 . 130 ) NRD HO 


COMMON /CONST/ NCS ,NCW ,M 1 ( 8 ) ,NSJ ,NCJ (5 ) .LAST ,M JW 1 ( 3.5) .M0W2 ( 3 . 5 ) , JNRD 120 

NRD 130 
NRD 140 
NRD 150 
NRD 160 
NRD 170 
NRO 180 
NRD 190 
NRD 200 
NRD 210 
NRD 220 
NRD 230 
NRD 240 
NRD 250 
NRD 260 
NRD 270 
NRD 280 
NRD 290 
NRD 300 
NRD 310 
NRD 320 
NRD 330 
NRD 340 
NRD 350 
NRD 360 
NRD 370 
NRD 380 
NRD 390 
NRD 400 
NRD 410 
NRD 420 
NRD 430 


1PANEL.MJJ(5) ,NW (3) .NNJ.NJP 
NJH= (NSJ-D/2 
17=1 
IP=1 
MM=0 

NM=NW(1) 

ISN=1 
NL=NW(1) 

A1 = 0, 

A2 = 0, 

DO PO J=1,LPANEL 
FN=NL 

IF (J.EQ, (LPAM.U.CR.J.EO. (LPAN2*1) ) IP = 1 
IF (J.GT.LPANl ,AKD,J,LE,LPAN2) ISN=? 

IF {J.GT.LPAN2.AKD.J.LE.LPANEL) ISN=3 
IF (J.GE.LPAM.AND.J.LT.LPANEL) GO TO 10 
GO TO 20 
10 NL=NW(2) 

IF (U.GE.LPAN2.ANC,J.LT,LPANEL) NL=SW(3) 

20 CONTINUE 

X1=XN(J,1)-XCP (I) 

X2=XN(J.2)-XCP(I) 

X1P=XN (J.2)-XN (J, 1 ) 

Y12=YN(J.2)-YN(J.1) 

Z12=7N(J.2)-ZN (J.l) 

Z1=ZN(J,1)-ZCP(I) 

Z2=ZN(J,2)-ZCP(I) 

XZJ=X1*Z12“Z1*X12 
DO 70 K«=1.2 
IF (K,E(3,1) 60 TO 30 




N'=l 

NRD 

440 


GO TO 40 

NRD 

450 

30 

N=2 

NRD 

460 

40 

CONTINUE 

NRD 

470 


YC= t-l.)*«N«YCP (I) 

NRO 

480 


YI=YN («♦!) -YC 

NRD 

490 


Y2=YN { Jt2) -YC 

NRO 

500 


XYK=X1*Y12-Y1«X12 

NRD 

510 


Y7I=Y1«Z12-21«Y12 

NRD 

520 


ALPl=XYK»XYK*X7J«XZo-»ei«Y7I«YZI 

NRD 

530 


Hiei=SOPT (X1«X1 ♦E1«Y1«Y1+B1»21«Z1) 

NRD 

540 


R2P1=S0BT(X2«X2*RI«Y2«Y?*P1*Z?»72) 

NRO 

550 


UUei=(X2*X12*Pl«Y2*Yl?*Pl«72“Zl2) /P2B1- (Xl*Xl2+ei*Yl«Yl2 

♦B1«Z1«Z12NRD 

560 


n/piPi 

NRO 

570 


G] = n ,-xi/RiPn/(Yi*Yi*zi«zi) 

, NRO 

580 


G2= n .-X2/R2B1) / (Y2*Y2 + Z2«Z2) 

NRD 

590 


ALPZsXYK^XYK + XZJ^XZO + BBoyZI^^YZI 

NRO 

600 


Rie2 = SGPT(Xl*XI+P2*Yl»Yl+P2«71«Zn 

NRD 

610 


B?B2=SOBT CX2*X?*P2*YZOY2 + B2»7?«72) 

NRO 

620 


UU62= (X2»X12*S2*Y2«Y12+B2«Z2«712) 7P2R2- tXl«Xl2+P2«Yl«Yl2+B2«Zl*Z12NRD 

630 


1) /R1P2 

NRD 

640 


G3= n ,-Xl/RlP?) / (YleYl + Z1*71 ) 

NRD 

et^o 


G4 = M .-X2/R2B2) / ( Y 2« Y2 + Z ?« 7? ) 

NRD 

660 


E13=UUP1«XZJ/4LP1 

NRD 

670 


F12=UUB1«XYK/4LP1 

NRD 

6P0 


G13=72*G2-71«G1 

NRO 

690 


612=-Y2«G2+Y1»G1 

NRD 

700 


F23=UUP2«XZJ/4LP2 

NRD 

710 


F22=UUP2-»XYK/ALP? 

NRD 

720 


623=72«64-Zl»G3 

NRO 

730 


0?2=-Y?*G4*Y1*G3 

NRD 

740 


IF (IR.EG.I .AND.KF.NE.O) GC TC =^0 

NRD 

750 


GO TO 60 

NRD 

760 

50 

613=72«62 

NRD 

770 


G12=-Y2«G2 

NRD 

780 


G23=Z2*G4 

NRD 

790 


G2?=-Y2«64 

NRD 

POO 

60 

CONTINUE 

NRO 

810 


F1=-F13«Y(4»IPHI)*(-1.)««N*F12«Y(3»IPHI) 

NRD 

820 


F2=G17»Y (4»IPM)«(-l.)««N*GI2«Y(3.IPHn 

NRD 

830 


F3=-F23«Y (4, lPHI)<t (-1 , ) »«N*F?2«Y (3*1PHI) 

NRD 

840 


F4=G23«Y (4,IPHI) »(-l ,)*«N+G?2«Y (3* IPPI ) 

NRO 

850 


A1=A1*{F1 + F2)«CH(I2)*SN (JJ»ISN)«GANa,J)/FN 

NRD 

860 

70 

A?=A?+ (F3*F4)*CH(r7)«SN ( J J . 1 SN ) *Gfl P { 2 , J ) /FN 

NRD 

870 


IF ( J.LT.NM.CP.J.FO.LPANEL) GC TC SO 

NRD 

880 


IZ=IZ*1 

NRD 

890 


IP=IP+1 

NRD 

900 


MMsKM 

NRD 

910 


km=nm*nl 

NRD 

920 



80 

continue 

NRD 930 


IF (KF.FO.O) 60 TO 110 

NRD 940 


CALL UNWF <81,XCP(n ,YCP{I) ♦7CP<n iAW.BW.IPHI,l«ALl»0) 

NRD 950 


AI=A1*AL1«F10«»P. 

NRD 960 


DO 90 K=1»NTL 

NRD 970 


KKsN+LPANEL 

NRD 980 

<30 

A1=A1+AW (K)*GAN (1,KK) «8. 

NRD 990 


CALL UNWF <B8,XCP (I) ,YCP (T) ,ZCP (I) *AW,RW,IPHI,l,AL2f 0) 

NRDIOOO 


A2=A2+AL2»F10«P. 

NROlflln 


DO 100 K=1,NTL 

NRD1020 


kk=k+lpanel 

NRD1030 

IOC 

A2aA?+AW(K)*6AN(2,KK)«8. 

NRD1Q40 

110 

CONTINUE 

NRD1050 


ALPF=(A1-A2)/P. 

NRD1060 


PFTURN 

NRD1070 


END 

NRDinPO- 


SUPPOUTINE FALON'E ( P , C5 » A W ♦ C A ♦ P AFP A ) 

FLN 10 


DIPENSION AW(1), CA(1), GAPMA(l) 

FLN 20 


COPPON /FUS/ XF (20) .XCF (20) ,FF (20) ,9NP (5,?0) ♦XLEF,XTEF,WAPD<20) 

,NCFLN 30 


lUP»NFtNT,CSF(5,10) fXASCG) ,NKF (6) ,F 0 , FI 0 .KF ,NTL 

FLN 4 0 


N = 0 

FLN 50 


PI=3. 14199265 

FLN 60 


NI = NF 

FLN 70 


NFlrNF+l 

FLN PO 


S=XTEF-XLEF 

FLN 9 0 


DO 30 I=1»NF 

FLN 100 


I J=I 

FLN 110 


XSaXCF (Id) -XTFF 

FLN 120 


IF (I.EO.NF) PFL=0, 

FLN 130 


IF (I.N'E.NF) PFL=X9/SCRT (XS«X5*P«RF(TJ)«RF(IJ) ) 

FLN 140 


CALL FUSELA (M,AW,N,IJ»XAS,XTFF»XF.XCF,PF.P,<;NP,NKF) 

FLN 150 


XO=XCF (Id) 

FLN 160 


XEF=XCF (IJ)-XLFF 

FLN 170 


AW(NF1)=-SL0P(XF)«CS- (PFL-XEF/':GPT (XEF*XEF*P«PF (ld)»RF (Id) ))»F07 (4FLN 18 0 


l.*PI) 

FLN 190 


IF (I.NE.l) 60 TO 20 

FLN 200 


DC 10 K=1»NF 

FLN 210 

10 

6APPA(K)=-AW(K*n/AW(l) 

FLN 220 


Nd=NF-l 

FLN 230 


60 TO 30 

FLN 240 

80 

call VPFEON (Nd» Id»AWt6APVA,CA) 

FLN 250 


NdsNd-l 

FLN 260 

30 

CONTINUE 

FLN 270 


DO 40 I=1»NF 

FLN 280 

«0 

WAPC(I)=6APMA(I) 

FLN 290 


RETLPN 

FLN 300 


c FLN 310 

FNC . FLN 3?0- 

SUBPOUTIK'E TV^FIJCT f L TCTfi L , LP AN F L . G A VM A , GAmw , t LP . Vf'L f X J , Yd , 7 JTHR 10 


OBlGWALPAGEa 

OE POOR 



c 


10 


20 

30 


1»RJ*T,6AL ♦ISY^'.LPAN2.Cfi^'LFT.S^G♦YG♦LWF,LWFJ,AW,PW«CM,p,BET♦RL.K2) THP 
TO evaluate the LEACINfi tOGF THRUST THR 

DIMENSION GAHHAd), GAL {1 ) , GAHWfl)* SNCdl), YG(1) THR 

DIHENSICN AWd), BWtlSt CH(1) THR 

COKHON /SCHEFE/ rf2)»X(10»41),Y(10,Al) , SLOPE ( 15 ) , XL (2 , 15 ) » XTT (41 ) , THR 
IXLL(41) THR 

COHFON /GEOM/ HALFSW,XCP(200) .YCP(?00) ,ZCP ( 2 00 ) ♦ XLF (50 ) . YLE (50 ) , XTTHR 
lE(50)♦PSI(20),^^(95).XV(?0 0),YV(100),S^f(P,e),X^(200t2),YN(^OOt^> »7THR 
2N ( 200,2) , WIDTH (P) ,YCCN(25) , SWFFP ( 5o ) , HALFR , S J ( 2 ) , 8 ) .EX (95,2) ,TX(95THP 
3, 2), SC (160, 5), SI 1)60, 5), LCO) THR 

COFHON /AERO/ AH ) , AH2 , B 1 ,P? , CL ( 30 ) , CT { 30 ) ,CD ( 30 ) ,6 AF ( 2 , 1 30 ) THR 

COFFON /CONST/ NCS.NCW.Fl (fi) ,NSJ,NCJ (5) ,LAST,Fjlkl (3,5) ,FvJW2(3,5) ,JTHP 
IPANEL ,F J J (5) ,NW {? ) J,NJP THP 

COFVON /PARAF/ ALPT,ALPC, alps. CDF, SDF,TH,T0F THR 

COFFON /FUS/ XF (20) ,XCF (?0) ,RF r?0) ,SNP (5,20) , XL E F . XTEF , V. ARD ( 20 ) . NCTHR 

THR 

THR 
THR 


1UF,FF,NT,CSF (5,10) ,XAS (f ) ,NKF (“^ ) ,F0 ,F1 0 ,KF .KTL 
PI=3. 14159265 
CAFLERsCAF 
CN=NW(1) 

KW=1 

SK = SNG (1) 

PK=5.«PI/Ia0. 

IlJSP=YCON (24) 

.ITHsYCOK (23) 

DO I'^O 1 = 1, NCS 
FCCS=CCS (SWEEP ( I ) ) 

FTAN=TAN (SWEEP (I) ) 

NK=I*NW(1) 

IF (NW(2),EO,fl) Cr> TO 20 
II=I*NCS 

IF (NW(3).NF.O) PO TO 10 
CHL=rH{I)+CH(II) 

GO TO 30 
1II=II»NCS 

CHL=CH(I)+CH(II)*CH(III) 

GO TO 30 
CHL=CH(I) 

CONTTNUF 

SRT=SORT(CH(J)/rHL) 

HP = P1 
IC = 1 
17=1 
IS=1 
MF=0 
TSN=1 
NF=NW(1) 

NL=NW(1) 

8C = 0, 

A=0. 


THR 

THR 

THR 

THR 

THP 

THP 

THR 

THR 

THR 

THR 

THR 

THR 

THP 

THR 

THR 

THP 

THR 

THR 

THR 

THR 

THR 

THR 

JHR 

THR 

THR 

THR 

THR 

THR 

THP 

THP 

THR 


20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

leo 

190 

200 

210 

220 

230 

240 

250 

260 

270 

?P0 

290 

300 

310 

320 

330 

340 

350 

360 

370 

3P0 

390 

400 

410 

420 

430 

440 

450 

460 

470 

4F0 

490 

‘'00 


obigwm. 

OE POOR 



WN = 0„ 

TF (KF.FQ.D) G(1 TC 60 

xo=xLE m 

Y0=YLEa) 

Z0=ZCP(KP) 

IPhl = l 

CALL UN'WF (B1«XQ.YQ,70*AW.PW,TPHI,.‘0,WK?,0) 

DO 50 IP-l,NTL 
I0='IP+LPANEL 
IF (K7.FO.O) GC TC 40 
AstA*AW (IP ) ♦GAP <I«IQ)*P. 

PC=PC*AW ( IP)*GAV (Z, 10) op, 

GO TO 50 

‘40 PC=PC+PW {IP)«GAPW (IG) *a. 

'EO continue 

60 CONTINUE 

DC 150 NN=1»LPANEL 
L=KN 

IF {K7.FQ.0) GAVvsGAPW (NN) 

IF C<7.NE.O) GAW=GAP (2,NN) 

J=^^ -MP 

FNsNi. 

IF (NN.EO, (LPANl+1 ) .OP.NN.EQ, <LPANZ*1) ) 15=1 
IF (UN.GE.LPANl.AND.NN.LT.LPANFLl GO TO 70 
GO TO Pfl 
70 NL=NW(21 

IF (NN.GE.L'PANZ.AND.NN.LT.LPANFL) NL=NW(3J 
IF (N'N.GT.LPAM.AND.NN.LE.LPAN?) 75N=? 

IF {NN.GT.LPANp.AND.NN.LF.LFANFU TSN=3 
PO CONTINUE 

Xl=XN(NN,l)-XLF{n 

XZ=XN(NN.Z>-XLFfI) 

X1Z=XN(NN,Z)-XN (NN,1> 

Y1Z = YN(NN»2)-YK (NN‘. 1 ) 

7l7=7N{Lf2)-2N a *1) ’ 

Z1=ZN(L,1)-ZCP(KP) 

Z2=7N{L.2J’-ZCP (KP) 

X7J=X1«Z1‘2-71«X1? 

FCPsl. 

DO 140 K=l*2 

IF (K7.EG.0.AND.K.EG.2) FCP=-1 . 

IF (K.FO.l) GC TO 90 

Nl='l 

GO TO 100 
90 Nl=2 
100 CONTINUE 

YC=YLE(I)*(-l,)**N'l 

Yl=YN(KN,l)-YC 


THR 510 
THR 520 
THR 530 
THR 54 0 
THR 550 
THR 56 0 
THR 570 
THR 5P0 
THR 590 
THR 600 
THR 610 
THR 620 
THR 630 
THR 640 
THR 650 
THR 6'60 
THR 670 
THR 680 
THR 690 
THR 700 
THR 710 
THR 720 
THR 730 
THR 740 
THR 750 
THR 760 
THR 770 
THR 7P0 
THR 790 
THR 800 
THR 810 
THR 820 
THR 830 
THR 840 
THR 850 
THR 860 
THR 870 
THR 8P0 
THR 890 
THR 900 
THR 910 
THR 920 
THR 930 
THR 940 
THR 950 
THR 960 
THR 970 
THR 980 
THR 990 




Y2=YN{NNi2)-YC 

THPIOOO 


XYK=X1«Y12-Y1«X12 

THRlOlO 


Y7I=Y1«712-Z1«Y1? 

THR1020 


ALB1=XYK«XYK+X7J»XZJ*B1«Y7I*YZI 

THR1030 


Piei=SGPT (Xl«Xl+Pl«Yl*Yl+fil«Zl«7n 

THR1040 


R2B1=S0PT (X?«X2+P1*Y2«Y2+B1«72*Z2) 

THP1050 


UUPl=(X2«X124ei«Y2«YlP*Bl«72«Z12) /P2Bl-<Xl«X12+Pl»Yl*Yl2+ei*Zl«Z12THR1060 


D/FIPI 

THR1070 


IF nS.EG.l.AND.KF.NE.O) GO TO 120 

THR1O0O 

no 

COMTNUF 

THRIORO 


61P1=( 1 .-Xl/RlPl ) / (Y1*Y1+71*71 ) 

THR.llOO 


GO TO 130 

THPlllO 

120 

IF {K7.FQ.O) GO TO 110 

THR1120 


G1P1=0. 

THP1130 

no 

coktinuf 

THP1140 


G2Pl=n.-X?/R2en / (Y?«Y2 + 7?«Z2) 

THR1150 


fi=uuri«xyk/alri 

THP1160 


F2=-Y2«-G2B1 + Y1«G1P1 

THR1170 


PC=PC* (Fl+F2)*Sh {J»ISN)«GAV(*CH (17) /FN*FCP 

THp.llfiO 


IF (KZ.FQ.O) go to 140 

THR1190 


A=A* (F1*F2)«SS (J,TSM«GAM (IC.^^')^^CH (T7)/FN 

THP1200 

i40 

CONTINUE 

THRIZIO 


IF iNN.LT.NM.OP.NK.EC.I PANEL) on TO no 

THR1220 


IS=IS4l 

THR1230 


IZ=I7*1 

THR1240 


MMzNM 

THR1250 


^V=^M♦NL 

THP1260 

no 

CONTINUE 

THR1270 


IF (KZ.FO.O) 60 TC 160 

THR1260 


CAVt E=CANLER- (CAMLER-CANLET) «YLE (I) /HALFR 

THR1290 


ALPT=XTT (I) 

THR1300 

1 6 0 

CONf INUE 

THR1310 


IF (t^F.EQ.O) GO TO 170 

THP1320 


WK=0 . 

THR1330 


G = 0» 

THR1340 


Mp=n 

THR13E0 


IF (KZ.EO.O) NP=1 

THR1360 


CALL FUSVOL (ei,X 0 .YOf 70 ,bN.V*K, 6 ,l»NP) 

THR1370 

170 

CONTINUE 

THR13B0 


IF (K7.F0.1) GO TO 200 

THR1390 


caple=o. 

THR1400 


IF (YLF (1) .GT.YG CKV») ) GO TO 180 

THR1410 


GO TO 150 

THR1420 

IPO 

KH=KW«-1 

THR1430 


SK=SN6(KW) 

THR1440 

150 

ALPT=P*YLE (I'/HALFp4eET«PK*SK-PL*XLE (I)/HALFB»SK 

THR14G0 


GO TO 220 

THR1460 

200 

CONTINUE 

THR1470 


A=A/o.4ALPT-CAVLE*ViN 

THP1480 



210 


250 


230 


240 

250 


Xe=XLF(I) 
YP = YLF (I) 
ZP=-ZCP (KP) 


PHRV=0, „ 

IF <IUSB,FQ.l.fl^C.ITN,EG,0) C-0 TO ?10 

call I^D.VEL (XP, YP»7B»XJ, YJ»ZJ»PJ»P1 *PHRV, PHX. 

CONTINUE 

A = A+PHPV/ (ALPC«VPL ) 


T, 


VPU*PHY*ISYP) 


a=a«srt 

THRTl=A/ (CNOSOPT (FTAN»FTAN + PB) ) 

IF (K7.EG.0) GO TC 220 

XTE (I ) ='{PI/2.) *SORT ( 1 ,-APl«APl*FCOS«FCOG) «THRT 
CONTINUE 

RC=EC/8.+ALPT-CAPLE+WM 


1«THRT1/FC0S 


0C-BC*SRT 

THRsBC/(CN«SOPT(FTAN«FTANUBP) ) 


CP (I):=ThR 

IF (K7.FO.O) GO TC 23 
X(5»I)=(PI/?.)*SCRT(1 


0 


1*AH l«FCOS*FCOS) *THR«THR/FCO? 


CONTINUE 

IF (KZ.FO.O) TFRT1=THR 
NM = N 1/(1) 


INT = 1 
ISN=1 

L1=LBANEL*1 

17=1 

My=0 

II = NW (1) 

A = 0. 

FACTOR = l . 

Ay=AMl 

PRrFl 

CONV=ALPC 

00 320 NN=1.LA?T 

IF (NN.GT.LPANEL) N A=NN-LPANEL* JPANEL 
IF (NN.LE.LPANFL ) NA=NN*2*JPANFL 
FN = IT 

IF (NN.GT»LPAN 1 .ANO.NN.LE.LPAN?) ISN=2 
IF (NN.GT.LPANP.ANC.NN.LF.LPANEL) ISN=3 
IF (NN ,6E .LPAM . A^O.N^ .LT.LPANFL ) GC TO 240 
(50 TO 250 
II=NW (2) 

IF (NN.GE,LPAN2.AND.NN.LT.LPANFI ) II=NW(3) 
CONTINUE 

IF (NM.GE.LPANFL . AND.NN .LT.PJJ ( INC) ) II=NCJ(INC) 

JsFN-yy 

CH0PO=CH ( IZ) 

IF (NN»FQ,L1) GO TO 2fi0 
GO TO 270 


THRI490 
THR1500 
THRl'510 
THRl'520 
THRl'530 
THR1540 
THRl'SSO 
THR1560 
THRI570 
THR1580 
THR1590 
THR1600 
THR1610 
THR1620 
THR1630 
THR1640 
THR1650 
THR1660 
THR1670 
THR16P0 
THR1690 
THR1700 
THR1710 
THR1720 
THR1730 
THR1740 
THPI750 
THP17F0 
THR1770 
THR17G0 
THP1790 
THPIPOO 
THRIPIO 
THR1P20 
THR1830 
THR1840 
THR1850 
THR1P60 
THR1870 
THR1P80 
THR1890 
THRlROn 
THP1910 
THR1920 
THR1930 
. THR1940 
THR1950 
THR1960 
THR1970 



tv <v 


?.(■<) 

?7C 


° n 




or 


ir 

2(1 


ISN = 1':n + 1 
Ll=yjJ(IND>+] 

M=vjjaNR)-) 

IF (NN.EO.NL) IND=INC*1 
IF (NN‘.GT.LP/1NFL) FACTOR = 0,=; 

Xl = xy <NM» 1 ) -X! F ( I ) 

X2 = XN(NK',2)-X ,F (I) 

X1? = XN (NN.?) -'K irN , 1 ) 

Yl? = YN (NN«2) (NK , 1 ) 

Z12 = ZN'{NN.2)-7K {NK»1 ) 

71 = 7NfK\.l)-7('P<KP) 
7?=2N(NN«2)-2rp(KP) 

X7J=XI«712-Z1"X1? 

FCG = 1 . 

00 2(10 K^=:l*2 

IF (K7.F0.0.ANn,K.F0,2) FrG=-3 , 

IF (K.FC*l) r-c in ?PC1 

Nl = l 

FO TO ?90 
M = ? 

CnNTT'''UE 

YC = YLF ( n « (-3 . ) «oK 1 
YI=YW(\N',l) -Y( 

Y2=YM (NN ,2) -YC 
X'^K = X1«Y12-Y1*X12 
Y7I=Y1«Z12-71'Y1? 

PI.PF Iw = XYK»XYt' «-X7J«X2J + PP-»Y7I«Y7T 
PXY71=SCPT(X1«<1+FP«Y1«Y1*PP«71*71) 
DXV7? = «:fiRT(X2«X2 + PP«Y?«Y7 + Pp«7?«7?) 
Utl= (XP«X1 2 + PP' »’c«Yl2 + PF*7F«71?)/RyY72 
1/FXY71 

PM = tl .-X1/RXY71 ) 7(Y1*Y1»71«71) 

GN 7 = n.-X 2 /RXY 7 ?)/(Y?«Y? + 7 ?« 7?1 
Pl=UJ*XYK/ALPPiy 
F2=6Wl*Yl-GNz« V? 


THR19eO 

THR1990 

THR2000 

THR2010 

THR2020 

THR203P 

THR2040 

THR20F0 

THR2060 

THR207tl 

THP20P0 

THR2090 

THR2100 

THP2-110 

THR2120' 

THP2130 

THR2160 

THRSIGO 

THP2160 

THR2170 

THR21R0 

THP2190 

THR2200 

THR2PI 0 

THR222(1 

THR2P30 

THP2240 

THR22E0 

THR2P60 

(X1*X12*PP»YI«Y12*RB*21«712) THR2270 

THRPPPO 

THP2?qn 

THR2300 

THP2310 

THP2320 


ArA+(Fl*FP)«SN(J,I?M«CHrRrj«r-AM^A(S4)/(P,»FN0FACTCF)oFCC THR233P 

IF (NN.LT.M^) '=0 TC ^10 THR2340 

+ I THP235t) 

THR236P 

^^/s^M+TT 

COMINOF THR23P0 

CONTINUF THR23Pn 

AsA«SPT YHR2400 

TFPT2=A/ (CN«SCRT (FTAK«FTAN*PP) ) THP2410 

THPT=(THPTl*Tt-RT?)«CrNV THR2420 

RAL (I)=2.«THPT/ {cpTerCNVl THR24 30 

Cn(I)=TPRT THR2440 

IF (K 7 .FO.O) r-c Tf 330 THP2450 

CT(I)=(Fl/^.)^»'=OPT(l.-A^'*fi^'^FCC'=«FCO'^)^^T‘-RT^»THRT/FCOS THR2460 
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330 


C 


CONTINUE THP2470 

RETURN THRZ4P0 

HNC THR24R0- 

OVEPLAY (WNGvJET.5,0) LOD 10 

:PPC6RAN LOAD LOD ?0 

TO EVALUATE THE AERCCyNfiMlC CHARACTERISTICS LOD 30 

DIMENSION GANPO30)* GAVP(330), GAMR(330), GAWxnsO), CPV(W(130). SLOD 40 
1ECT(30)» CPF(10»30). GAPywaBO) ,L'OD 50 

OIPENSION C0(330> LOD 60 

DIPENSION SDInASH <100) , AW(5), PVM40) LOD 70 

COPPON /GEOP/ KALFSta,XCP(200)»YCP(?00) *ZCP{Z00)tXLE<50')»YLB(50).XTLO0 BO 
lE(50),PSI<20),CK95)»XV<?nO),YV(100)*SN(P,8),XN(20 0,2),YN(200,2) ,2LOD 9 0 
EN (HOO,2) tWIDTH (P ) ♦YCCN (2S) » SWEEP (EO) »HALFB*?J <21 *6) »Ex <95,2) ,TX <95L0D 10 0 
3,2) ,SC <160»’5) ,SI <160,5) ,LC <3) LOO HO 

COPPON /AERO/ APl,AP2,ei ,P2,CL <30) ,CT<30) ,CD <30) ,GAP <2,130) LOO 120 

COPPON /SOME/ NC,NWING,LAT,NAL,LWF,LWFJ,CHOPDTO),SN6<S),Y6<5) ,YCNLOD 130 
1 <6) ,WKN,RDX,PC6,N0G LOD 140 

COPPON /CONST/ NCS,NCW,P1 (6) ,NSJ,NCJ <5) ,LAST,PUW1 <3,5) ,PJW2<3,5) ,OLOD 150 
1PANEL,PJJ<5> ,NW<3) ,NNJ,NJP LOD 160 

COPPON /PARAP/ ALPT,ALFC, ALPS, CDF, SDE,TH,TDF LOD 170 

COPPON /SCHEPE/ C <?) ,X <10,41 ) ,Y <10,41) ,‘=LOPE < 15) ,XL <2, 15) , XTT <41 ) ,LOC ISO 
1XLL<41) LOD 190 

COPPON /ADD/ CP <130)*,CP <30) ,8PEAK C8) ,SWP <P,15) ,GAL <30) ,ISYP,VMU,VULOD 200 
1 ,TEP P, FCR, CAPLFR, CAPLET, CAPTFR, CAPTET, XJ,YJ,ZJ,PJ, ALP, CPEF ,TWISTP LOD 210 
, COPPON /COST/ LT0TAL,LPAM ,NJW <'^1 ,LPANEL,IENTN, LPAN2, EXIT, PTIAL,TWLOD -220 
1IST,DE<5) ,NFP LOD 230 

COPPON /FUS/ XE (20) ,XCF (20) ,PF <20) ,SNP (5,20) , XIEF,XTEF,WARD <20) ,KCLOO 240 


lUP ,NF,NT,CSF < = ,10) ,XAS (6) ,NKF (5) ,'F 0 ,F1 0 ,KE ,NTI. 

LOD 

250 

PI=3, 14159265 

LOD 

260 

1A=2»JPANFL 

LOD 

270 

PK=E.»PI/1P0, 

LOD 

260 

NW?=NW (1) ♦NW<2) 

LOO 

290 

NW3=NW (2) ♦NW (3) 

LOD 

300 

NJH=(NSJ*l)/2-»l 

LOD 

310 

IF (ISYP.FO.O) NJP=NSJ/2 

LOD 

320 

IF (ISYP.FQ.O) NP=NSO-l 

LOD 

330 

IF (ISYM,NE,0) NP=NSJ+1 

LOD 

340 

AHsAMl 

LOD 

350 

ALPP=ALP«180./PI 

LOD 

360 

WRITE <6,460) 

LOD 

370 

WRITE <6,450) ALPH 

LOO 

380 

WRITE <6,460) 

LOD 

390 

ZJET=YC0N (25) 

LOD 

400 

IUSB=YCON (24) 

LOD 

410 

ITK=YCON(23) 

LOD 

420 

NC=1ENTN 

LOD 

430 

OFJ*=COF 

LOO 

440 

’CMU=C<1) 

LOD 

450 

REWIND 01 

LOD 

460 




PEVtlNn 02 

LOD 

470 


REWIND 07 

LOD 

400 


REWIND 08 

LOO 

490 



LOD 

500 


TT4FG=1 

LOD 

510 


DO ?10 1=1*3 

LOD 

520 


II = I 

LOD 

530 


IF (T.F0.2) GO TC 30 

LOD 

540 


IF fI,EO,3) GC TO 60 

LOD 

550 


IF (IUSe,EQ.l.ANn.ITN.E(^.0) GO TC ?10 

LOD 

560 


DO 10 J=1*LP4NEL 

LOD 

570 

10 

CPWW (J)=6AM (l,j)«iLFC 

LOO 

5fi0 


DO ?0 J=1*NCS 

LOD 

590 

2(1 

SFCT (J)=XTE(J) 

LOD 

6qo 


GO TO 170 

LOD 

610 

10 

DO 40 J=1.LPANFL 

LOD 

620 

40 

CPWW{J)sGAN(2.J)«ALFf 

LOO 

630 


DO 50 J=1,NC« 

LOD 

640 

ill 

o 

SECT (J1=X (5, J> 

LOD 

650 


GO TO 90 

LOD 

660 

60 

DO 70 J=1.LPANFL 

LOD 

670 

70 

CPVa (J)=CP (J) 

LOO 

680 


DO =0 J=1*NCS 

LOO 

690 

80 

SECr (J)=CT{Jl 

LOD 

700 

90 

IF (LAT.NE.l) GC TC 170 

LOD 

710 

C 


LOD 

720 

c 

EDGE SINGULARITY' PAPANETERS FOR, (!) CPP1(L.F,)« CPF?(TIP) FOR 

LOO 

730 

c 

SYf'''FTPICAL LCiriNG, (2) CPF3(L.F,). CPF4(TIP) FCP P MOTION, 

LOO 

740 

c 

r>) CPF5(L.F.). CPFMTIP) for P motion, (4) CPF7(L.F.), CPFe(TIP) 

LOD 

750 

r 

priR O MCTICN 

LOD 

760 


RFAn (ITAPE) (CPF(l.K) ,I< = 1,NCS) 

LOD 

770 


RFA' (ITAPE) (CPF (2,K) .K = 1,NCW) 

LOD 

780 


PFAO (ITAPF) {'- AMX (K) ,K=1 ,LPANFL) 

LOD 

790 


IF (I.NE.2) 50 TC 110 

LOD 

POO 


DO 100 K=1,LPANFL 

LOO 

PIO 

100 

6AMXW (K ) =GAMX ) 

LOD 

P20 

no 

CONTINUE 

LOD 

830 


Kl = l 

LOD 

840 


DO 120 KK=1,3 

LOD 

850 


REAn (ITAPE) (f PF (K1*?,K) ,K=1,KC'=) 

LOD 

860 


REAC (ITAPF) (C PF (K1+3,K) ,K=1 ,NCW) 

LOD 

870 


K1=K1*2 

LOO 

880 

120 

CONTINUF 

LOD 

890 


11 = 1 

LOD 

900 


I2=LPANEL 

LOD 

910 


IF (I, EG. 3) I1=2«JPANFL*1 

LOD 

920 


IF (I.E0.3) T2=LTCTAL 

LOD 

930 


IPARM=LWF 

LOD 

940 


IF (I. EG. 3) IPARMsLWFJ 

LOD 

9=0 
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130 

140 

150 


160 

170 


PFAC (ITAPG) «PAVP (K) ,K = 1 , IPAPP) 

PPAD (ITAP6) (GAVP (K) .K=1,IPAPP> 

PEAC {ITAP6) (GAPP (K) iK=l , IPARM) 

DO ISO KP=I1 »I2 
K=KP-IA 

IF (I. EG. 2) K=KP 
STCFF=0, 

SIOFJ=0. 

IF (KF.EO.O) 60 TO 140 

CALL UNWF <B1*XV (K) »YV (Ki ,7CP (K) »AW,BW,1 ,0»WK2«21 
00 130 J=1*NTL 
KK=J*T2 

SIDEF=SlDEF+ew ( J) oGAPP (KK) 

IF (I, EC. 2) GO TP 150 

CALL SDWJ (SIOEJfXV (K) ,YV (K) »7CP (K) ,GAPP,LPANEL»ISYP) 

COATINUE 

IF (I.EQ.2) SDwASH (K) sSlDFF 

GAPP(KP)=6APR(KP)-YV {K) / HALFP«rPV*W (K ) /ALPC-XV (K > /HALFB»6APX IK) 

GAPP (KP)=GAPP(KP)- {SIDEF+c1dEJ-PK)«GAMX (K) LUUllAO 

CALL FORCE (II ♦AP,CLT»CWT,CDT,?FCT *CL f CM , cP. XLL » XTT ♦ CPWW tCPF , GAPP » LOCI 1^0 


LOD 960 
LOO 970 
LOD 960 
LOD 990 
LODIOOO 
LODlOlO 
LOD1020 
LOD1030 
LOD1040 
U001P50 
LOD1060 
LOD1070 
Looioen 
LOD1090 
.LODllOO 
LODI no 

LOD1120 

LOD1130 

LOD1140 



2CTJ 

LODI 170 


IF fI.EG.l) GO TO leo 

LODiien 


IF (I. EC. 2) GO TP 190 

LOD1190 


GO 70 210 

L0D1200 

180 

clv*=clt 

LOD1210 


CPWT=CPT 

LOD1220 


CDW=CDT 

LOD1230 


GO fO 210 

LOD1240 

190 

clv,v-=clt 

LOD1250 


CPWWT=CPT 

LOD1P60 


CDWk=COT 

LOD1270 


CYFV=CYP 

L001260 


CLPW=CLP 

LOD1290 


CNP4i=CNB 

LOD1300 


CLPW=CLP 

L0D1310 


CYPh=CYP 

L0D1320 


CNPh=CNP 

LOD1330 


CYPW=CYP 

LOD1340 


CLPPW=CLPP 

LOD1350 


CNPVt=CNR 

LOD1360 


DO 200 K=1,NCS 

LOD1370 


X(4,K)=CLCf) 

L0D1360 


X(6»K)=CD(K) 

L0D1390 

200 

X (7.K) =CP (K) 

LOD1400 


ITAPE=7 

L001410 


ITAPGsP 

L0014PO 

210 

CO^TI^)UF 

L0D1430 


READ (OP) (CG (IE) .TR = 1 .LWFvJ) 

L001440 



C0CL2=CDT/(CLT«CLT> 

IF (CLWW.LE.O.oni) 60 TO ?Z 0 
CDWL?=CDWW/ (CLV.W«CLWW) 

GO TO 230 
220 CDWL2=0, 

230 CONTINUE 

WRITE (6»470) 

KleO 
JJI = 0 

DO 310 I=1»NCS 
IF (NW(2).EO,0) GO TO 250 
n = I^NCS 

IF (NW(3)*NE,0) GO TO 240 
CHORD=CH(I)+CH(II) 

GO TO 260 
240 II1=II+NCS 

CHCPD=CH ( I ) *CH ( 1 1 ) ♦CH ( 1 1 n 
GO TO 260 
250 CHCPD=CM(I) 

260 CONTINUE 

00 300 J=ltNCW 

JJ=v;Jl4j 
KK = K 1+J 

IF (NW(2).FQ.O) 60 TO 280 
IF f J.LE.N'WU) ) GO TO 280 
IF {J.GT.NW2) 6C TC 270 
LL=L PANl +NW (2) « (I- 1 ) ♦J-NW ( 1 J 
GO TO 290 

270 LL = LPAN2*NW(3)«n-l)+J-NW2 

GO TO 290 
280 LL=v.J 
290 CONTINUF 

XI= (XV (LL)-XLE (I) ) /CHORD 
RTA=YV(LL)/HALFP 
CPWs2,«PAH (?,LU «ALPC 
CPT=CP (LL)*2. 

300 WRITE (6»480) KK ,XI » ET A , CPT »CPW 
UJ1=(NCW-NW3)*I 
K1=K1 4NCW 
310 CONTINUE 

WRITE (6.490) 

DO 320 1=1, NCS 
YE=YLF(1)/HALFP 

320 WRITE (6,500) YE ,CL ( I ) , CW ( I) ,CT ( 1) ,CD ( I ) ,X (4 , 1 ) , X { 7 , 1 ) , X (6 , I ) 
WRITE (6.510) CIT 
WRITE (6.5P0) COT 
WRITE (6,530) CDCL? 

WRITE (6,540) CRT 
IF (lUSP.NF.l) rn TO 370 


L0D14‘^0 

LOD1460 

LOD1470 

LOD1480 

L0D1490 

LOD1500 

LOD1510 

LOD1520 

L0D1530 

LOD1540 

L001550 

L0D1560 

LOC1570 

L001580. 

LOD1590 

L001600 

LOD1610 

L001620 

LOD1630 

LOD1640 

L0D16F0 

L0D16*n 

LOD1670 

L001680 

L0D1690 

L001700 

LOD1710 

L0D1720 

LOD1730 

L0D1740 

LOD1750 

LOD1760 

L0D1770 

LCOITSO 

LOD1790 

LCDIPOO 

LODIPIO 

LOD1820 

L0D1830 

LOD1840 

L0D1850 

Lonieeo 

LOD1870 

LOD1P80 

LOD1890 

LOD19C0 

LOD1910 

L001920 

L001930 
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IF (DFJ.LE.O.OOl 1 CC TO 370 

L0D1940 


IF (ZJET.GT.O.On GO TO 370 

LOD1950 


SOFO^SIN (DFJ) 

L0D1960 


CDFo=CCS (DFJ) 

LOD1970 


CLP=CMU*SIN (DFJ+ALP) 

L0019BO 


COP = CMU« (VMU-CO?; (nFj*4LP5 ) 

- L001990 


CF=COS (TDF) 

UOD2000 


'5F=SIN (TOF) 

L0D2010 


IF (NNJ.EQ.l) CnR=-CFU«COS (DFJ*ALP) 

L002020 


!J= (NSO+1) /2-1 

L0D2030 


IF (ISYF.EO.O) IJ=^SJ/^-l 

L002040 


IF (NW(3) .NE.O) go to 330 

LOD2050 


IF (NW(2),EQ.O) GO TO 340 

LOD2060 


IZ=^CS+tPJWl (2tNJF)-LPANl-l ) /NW (?) +1 

LOD2070 


KJ=FJW1 (2»NJP) 

L0D20B0 


NN'=KW (2) 

L0D2090 


GO TO 350 

LOD2100 

330 

I7=NCS«2+(MJW1 (?,K JP)-LPAN?-1) /NW (3)+l 

L0D2110 


KJ=KJW1 (3,NJP) 

L0D2120 


NN=NW(3) 

L002130 


GO “0 350 

L0D2140 

34 r 

T7=l C(l) 

L0D21P0 


KJ=FJW1 n.NJF) 

L0D216O 


N^ = ^ W (1 ) 

L0D2170 

350 

CO^f TK'UF 

LOD2160 


CMi=n. 

L0D2190 


DO 360 1 = 1. IJ 

L0D2?00 


YOIFsYN (KJ,?) -YN (K o.l ) 

L0D221O 


CYl=CPl*YDIF/WirTF iNJW (KJP) ) *{ (XLF (IZ) *CH (IZ) «CF) 

*SDFvJ-CH (IZ)*SF«CL0D2220 


inFJ) 

L0D2230 


KJ=KJ*KN 

LOD2240 

3f 0 

r7=:z+i 

L002250 


CMfls-cyi«CMU/CRFF 

L0D2260 


IF (NNJ.NE.1) WRIT'^ (6.550) CLP 

L0D2270 


IF (NNJ.EQ.l) hOITF (6.560) Ct P 

LOD220O 


IF (NNJ.NF.1) WPITF (6,570) CCP 

LOD2290 


IF (K‘NJ.EO.1) WPITE (6,560) CCR 

L0D2300 


IF (NNJ.NE.l) WPITF (6.590) Cmr 

L0D2310 


IF (K'NJ.EO.l) WPITF (6,600) CFR 

L002320 

370 

continue 

L0D2330 


IF (IU5P.E0.1.ANC.ITN.EC.0) CO TO 3P0 

U0D2340 


WPITF (6.610) CLW 

L0D2350 


WRITE (6.620) CCW 

L0D2360 


WPITF (6.630) CWWT 

L0D2370 

360 

CONTINUE 

LOD23P0 


WRITE (6.640) ruWW 

LODP390 


WRITE (6,650) CDWW 

L0D2400 


WRITE (6.660) CYWWT 

L002410 


WRITE (6,670) COWL? 

LOD2420 



390 


4 00 


41C1 


IF JKF.FQ.O) GC TC 400 
WRITF (6*680) 

WRITE (6,690) 

REWIwn 07 
REWIND 08 
S=XTEF-XLEF 
SS=S!N(4LP) 

DS=C0S(4LP) 

X1=YCN{6) 

CALL CPFUS (KCUV,NT,CG,CPF,NF,?,XLEF»XF.XAS*LPANEL*LPAM ,NKF *NW,E 
l*AN,SS*CS*SNP*F0*F10,WARn,LASTtLFAN?*CRFF»NCJ*NOJ*LAST*0»NJH *NP) 
CALI FUSLFT (CPF , ^ ALFS W , fPEF , SS , CS , 0 * X 1 ) 

WRITF (6.700) 

DO 390 1 = 1. LWF 
CPWW(I)=GAN(2,I)*ALPC 
SS=SIN (ALP) 

C<;=COS (ALP) 

CALL CPFUS (NCUN ,NT,CPWW,CPF,N'F,S.XLEF,XF.XAS.LPANEL ,LPAM ,NKF *NW 
IRl ,AM,SS.CS*SNP.FO»F10 .WARD, O.LPAN?,CRFF.NCJ»NJJ,LAST.O.NOH»NP) 
CALL FUSLFT (CFF,PALF9W*CPEF,SS.CS,0.XI) 

IF (LAT.NF,!) go TC 440 
WRITE (6,710) 

WRITE (6,780) ALPH 
WRITF (6,730) AN] 

JL=LA«5T 
REWIND 01 
DO 430 1=1,2 
G10=0. 

SS = 0. 

CS = 1. 

IF (KF.FQ.O) GO TO 410 
IF (I.FC.l) REWIND 08 
IF (I. EG. 2) REWIND 07 

call CPFUS (N'CUV ,NT,GAMR,CPF ,NF,S,XLEF,XF,xA5,LPANEL,LPAM ,NKF,NW 

1R1,AM,5S.CS*SNP.EO,610.WARD,JL,LPAN'2,CREF,NCJ,NUJ,LAST,2,NJ)-,NP) 

CALL FUSLFT (CPF , F ALFSW ,CPEF , S? ,CS , ? , XI ) 

CYe=SS/BK+CYR 

CNP=CS/BK«CRFF/ {? , *HALFR ) +CNB 
SS=0. 

C5=l. 

IF (T.EG.l) REWIND 08 
IF (I. EG. 2) REWIND 07 

CALL CPFUS (NCUP.NT ,G APR , CPF ,NF ,5 , XLEF , XF , XAS ,LP ANEL ,LP AM ,NKF,N'W 

IPl , AM.SS,CS,ENP,FP,G10,WAP0,JL,LPAN?,CPFF,NCJ,N'JJ,LAST,3,NJH,NP) 

CALL' FUSLFT (CPF ,H ALFSW ,CPFF ,SS , CS , 3 , X 1 ) 

CYR=SS*CYR 

CNP=CS*CFFF/(?.«FALF8) *CN‘R 
CONTINUE 

WRITF (6,740) CYP.CLB.CNR 


L002430 
LODP440 
LOD2450 
LOD2460 
L002470 
LOD2480 
LOD2490 
LOD2500 
LOD2S10 
1LOD2S20 
LOD2530 
LOD2540 
L0025Sn 
LOD2560 
LOD2570 
LOD25PO 
LOD2S90 
,LOD260O 
LOD2610 
LOD2620 
LO0P630 
LOD2640 
LOD2650 
LODP660 
L002670 
LOD26 80 
LOD2690 
LODP700 
LOD2710 
LOD2720 
LOD2730 
LOD2740 
LOD2750 
,LOD2760 
L0C2770 
LODP780 
LOD2790 
LOD2800 
LOD2P10 
L0D2820 
LOD2P30 
LOD2P40 
.L002850 
LOD2860 
LOD2P70 
LOD2P80 
LOD2P90 
LOD2900 
LOD291 0 


ORIGINAL PAGE IS 
OE POOR fiUALEra 



IS n* 


i?0 


430 
44 0 


®0 

460 

470 

4P0 

490 

= 00 
= 10 
= 20 
= 30 


WRITE {6*750) CYP.CLP«CNP LODP920 
WRITE {6,760) CYP,CLPR,CNP LOD2930 
WRITE (6»770) LOD2940 
CYPPsCYB L002950 
CYPP=CYP*CYR*)SLP LOD2960 
CYRP=CYR-CYP*4LP L0D2970 
CLPP=CLR + CNB'i»/'LP LOD29P0 
CLPP=CLP+ {CLPP+CNP)*ALP L002990 
CLRP=CLRR- (CLP-C^R) »ALP La03000 
CNBP=CNR-CLB«ALP L003010 
CNPP=CNP-{CLP-C\R)*ALP LOD3020 
CNRP=C^'R-(CLRP + C^P)*A!.P LOD3030 
WRITE {6,740) CYPP,CLBP,CK'PP LOD3040 
WRITE {6,750) CYPP ,CLPP ,CNPP L00305fl 
WRITE {6,760) Cvpp , CLRP , CKRP LOD3060 
'JL = 0 LOD3070 
CYP=CYBW LOD30PO 
CLFsCLPW LOD3090 
CNE=CN6W LOD3100 
CLP=CLPW LOD3110 
CYPs'-YPW LOOSlc'o 
CNFa .NPW L003130 
CYPsryPW LOD3140 
CLPR=CLPRW LOD315P 
CNP=CNPW LOD3160 
IF (T,E0,2) 60 TO 430 LOD3170 
REAC {01) {GARP (K) ,K = 1 ,LWF) LOD31P0 
REAP (01) {GAPP<t<) ,K = 1,LWE) LOD3190 
READ (01) {GAPP (K) ,K=1 ,LWF) LOD3200 
00 420 K=1,LPANEL L003210 
GAPP (K) =6AMR{K)-YV (K) /HALFP«GAM(2,K)-XV { K ) /H AL FP *6 AP X W ( K ) LOD3220 
GAwp (K)=GAMB(K>-{SCWASH{K)-PK)*CAPXW{K) L003230 
IF (I,EG,1) WRITE (6,7P0) L003240 
WRITE (6,720) ALPR L003250 
WRITE (6,730) API L003260 
CONTINUE LO03270 
CONTINUE .UOD3280 
RETURN L003290 


L003300 

ECPPAT (1H0,26x,7HALPPA = , F 1 0 , 3 , 3 X , 7H0FRPEE<; ) L003310 

EORPAT (1HO,20x,40HXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX^) LOD3320 

EOPVAT (IHO ,3X,6RVCRTEX , 14X , 2PX V , 17X , 2HYV , I 9X , 2PCP , 19X , 3HCPW ) L0D3330 

FOPPAT (6X , 13 , 4 { 1 OX , F 1 0 ,5 ) ) LOD3340 

FOPPAT (1H0,9X,4- Y/SP,1 1 X , ?HCL , 1 3X , 2HCP , 1 ? X , 2HCT , 13X , 3PCC I , 12X , 3HCL003350 

1LW,1?X,3HCPW,1?X.3I-CCW) LOD3360 

FOPPAT (B (GX.FIO.S) > L0D3370 

FOPPAT (1H0,22HTHF LIFT COEFFICIFNT =,F10,5) LOD3380 

FOPPAT (lH0,32l-TrTAL INDUCED DRAG COEFFICIENT =,F10,S) LOD3390 

FOPPAT nH0,2PHT)-E INDUCED DRAG pARAMFTFP =,F10.5) LOD3400 



cn m in 


540 

50 

eo 

70 

80 

550 

600 

610 

6?0 

630 

640 

650 

660 

670 

5PC 

690 

700 

710 

720 

730 

740 

750 

760 

770 

7P0 


(lH0,47f-THE 

{1H0»34HTHE 

(1H0»47HTHE 


( lH0f35h7OT4L PITCHIKC- POPENT COEFFICIENT =»F10.5) LOD3410 

(1H0,34HTHE C0AND4 LIFT CCEFFICIFNT* CLP =»F10,5) L003420 

LIFT CCEFFICIEN'T DUF TO JET REACTIONS CLJ =,F10LOD3430 

LOD3440 

C0AND4 CRAG COEFFICIFNT. COR =,F10,5) LOD3450 

DRAG COEFFICIENT DUE TO JET REACTION, CDJ =,F10LOD3460 

L0D3470 

COANDA MOVENT COEFFICIENT, CKR =»F10,5) LOD3480 

PITCHING VOVENT COFFFICIFNT DUE TO JET RE ACTI0NL0D3490 

LOD3500 

LIFT CCEFFICIFNT WITH JET ENTRAINMENT ALONE LOD3610 

LOD3520 

INDUCED DRAG COEFFICIENT WITH JET ENTR A INVENLOD3530 

LOD3540 

PITCHING MOMENT COEFFICIFNT WITH JET FNTRA INLOD3550 

LOD3560 

LIFT COEFFICIFNT FOR THE WING ALONE= , FI 0 .5 ) LOD3570 

INDUCED DRAG COEFFICIENT FOR THE WING ALCNE= ,F1L0D35P 0 

LOD3590 

(1H0»51HTHE PITCHING MOMENT COEFFICIENT FOR THE WING AL0NF=LOD360 0 

LOD3610 

{1H0,46HTHE INDUCED DRAG PARAMETER FOR THE WING AL'iNE = , F 1 0. LOD3620 

LOD3630 

(//1X,5PH»«*FUSELA6E AERODYNAMIC CHARACTERISTICS A !E GIVEN 
1PELCW»«»1 

FORMAT (/5X,26H*«*JET-0N CONE I CUR AT I ON««» ) 

(/5X,27H»«« JET-OFF CON F IGL'RATION«»« ) 

(/'/1X,56HLATFRAL-D1RECTICNAL STABILITY CH ARACTEPSTICS WITH 


FORMAT 
FORMAT 
FORMAT 
1.5) 

FORMAT 
FORMAT 

1.5) 

FORMAT (1H0,36HTHE 
FORMAT (IHO.SeHTHE 
1, CMJ =,F10,5) 

FORMAT (1H0,2X,4RHTHE 
1=.F10,5) 

FORMAT ( 1H0.2X ,57HTHE 
IT ALONF =,F10.5) 
FORMAT (1H0.2X ,60HTHE 
IMENT ALONE =,F10.E) 
FORMAT (1H0,40HTHE 
FORMAT (lH0,4eHTHF 

10. 5) 

FORMAT 

I.FIR.S) 

FORMAT 
15) 

FORMAT 


FORMAT 
FORMAT 
IJFT ON) 
FORMAT 


(//45H««*SYABILITY 
1,4HDEG.) 

FORMAT (/3X,16HAND .AT MACH NC.=,FP 
(/5X,5HCYP =,F12.7.2X.':HCLe 
(/5X,5HCYP -,Fl?p7,2X,5HCLP 
(/5X,5HCYP =,F1?.7,2X.5HCLF 


DERIVATIVES evaluated AT ALPHA 


LOD3640 
LOD3650 
LOD3660 
LOC3670 
LOD36PO 
LOD3690 
:,F8.3,2XLOD3700 
LOD3710 


format 

FORMAT 

FORMAT 

FORMAT 

FORMAT 


3,22H,PASED CN BODY AXES«**) 
=,F12.7,?X,5HCNB =,F12.7) 
=,F12.7,2X,5HCNP =,F12,7) 
=,FI2.7,2X,EHCNR =,F12,7> 
(//51H*««ST^iRILITY CFPIVATIVES RASED ON STABILITY AXES»<n») 
(//1X,57HLATERAL-BTRFCT10NAL STARILITY CH AfiACTFRSTICS WITH 


OFF) 


LOD3720 
LOD3730 
LOD3740 
LOD37S0 
LOD3760 
LOD3770 
LOD37BO 
LOD3790- 
10 


IJFT 

end 

SUFROUTINE UTFW {X,Y,7,SF,CF,LAST,LPANFL,P1 ,LPAN1 ,nh,gamma ,vx,vt,jutw 
1L,LPAN2,NCJ,MJJ,L ,NJH,NP) UTW 20 

DIMENSION W(2), NW{1), GAMMAH), U(2), NC J (1 ) » MJJ(I) UTW 30 

COMMON /GEOM/ HALFSW , XCP (200 > , YCP (200 ) ,7CP {2 00 ) , XLE (50 ) , YLE ( 50 ) , XTUTW 40 
ie(50),PSI(2n),CH{95),XV(200)»YV(100),SN(P,B),XN(200.2).YN(200,2» ,7UTW 50 
?N (200,2) ,WI0TH (P) , YCON (25 ) ,SWEEF (50),HALFP,SJ(21,8),EX(95,2),TX (95UTW 60 
3,2),SC(160,5) ,SI(160,5) ,LC(3) UTW 70 

PI=3. 14159265 UTW PO 

ICCN=LPANFL UTW 90 

IF (JL. EG. LAST) ICCN^LAST UTW 100 




IA=?«{LAST-LPANFL) 

UTW 

110 


ip=la«;t-lpanfl 

UTW 

120 


JCCT=XTE (50) 

UTW 

130 


ip=i 

UTW 

140 


IZ=1 

UTW 

150 


IFF=1 

UTW 

160 


ISK = 1 

UTW 

170 


JKT=1 

UTW 

IPO 


MH=KW(1) 

UTW 

190 


^1^=^W(1> 

UTW 

200 


iNr=i 

UTW 

210 


L1=LPANEL+1 

UTW 

220 


LAST1=LAST-1 

UTW 

??0 


F4rT0P=l . 

UTW 

240 


TF (L.PE.?) FflCTCP=-l. 

UTW 

250 


vx = n. 

UTW 

260 


VT=C. 

UTW 

270 


DO 130 J=1,ICCN 

UTW 

?P0 


>'I = J-IFF*1 

UTW 

290 


FN = NK' 

UTW 

300 


IF (J.FT.LPAK'FL) 6C to 40 

UTW 

310 


IF (J.FG. (LPA^•1♦] ) ,CR. J.FC. (LPAN2 + 1) ) TP = 1 

UTW 

320 


TF (JCCT,EQ.1.A^^. J.GT.LPANEL) GO TO 10 

UTW 

330 


PO TO 20 

UTW 

340 

10 

IF (JKT.EG.l.OP. JKT.FO. (NJH+1 ) ) IP = 1 

UTW 

S'^O 

?n 

COFTINIIF 

UTW 

360 


IF ( J.GT.LPAM .ANC.J.LF.LPAN?) ISK=2 

UTW 

370 


IF (J.GT,LPA^?.A^^.J.LF.lPA^EL) ISN=3 

UTW 

3P0 


IF ( J.GF.LPAM .ANr.J.LT.LPANEU GC TO 30 

UTW 

390 


GO TO 40 

UTW 

400 

30 

NNsKW (2) 

UTW 

410 


IF ( J.GE.LP4A:2 .AKr.J.LT.LPANFL) AN=NW(3) 

UTW 

420 

^l0 

CONTINLF 

UTW 

430 


IF (J.GE.LPANFL.AKC.J.LT.Pjg (IKD) ) NN'=Nrj{IKD) 

UTW 

440 


IF (JL.EG.O) C-r TO 70 

UTW 

450 


IF (J.EQ.Ll) GC TO SO 

UTW 

460 


GO TO GO 

UTW 

470 

50 

ISN=ISN+1 

UTW 

4P0 


L1=PJJ (If^D) *1 

UTW 

490 

eo 

NL=PJJ (IND) -1 

UTW 

FOO 


IF (NL .PQ.LAST n GC TO 70 

UTW 

510 


IF (J.EO.NL) I'C=INC*1 

UTW 

520 

70 

CONTINLF 

UTW 

530 


JJ=J 

UTW 

540 


IF (J.LE.LPANFI . AND . JL .FO ,LAFT ) JJ=J + IA 

UTW 

550 


IF (J.GT.LPANEI .and. JL.EO, LAST) JJ = J*IP-LPANEL 

UTW 

560 


CI-CRD=CH ( IZ) 

UTW 

570 


X1=XN (Jtl )~X 

UTW 

5P0 


X2=XN(J»2)“X 

UTW 

590 




X12 = XN(‘J,2)-XMJ.1 ) 


UTW 600 


Y13 = YN(J,2)“VN(J,U 


UTW 610 


71e=ZN (J»2)-ZN (J» 1 ) 


UTW 620 


71 = ZN(J, U-Z 


UTW 630 


ZP=ZN(J,?>-7 


UTW 640 


XZJ=X1«Z12-Z1*X17 


UTW 650 


DO 120 11=1.2 


UTW 660 


FCF=1. 


UTW 670 


IF <II.FQ.2) FCP=-1. 


UTW 680 


YC=Y*FCP 


UTW 690 


Y1=YN ( vJ.l) -YC 


UTW 700 


Y?=YN {J.2) -YC 


UTW 710 


XYK=X1*Y12-Y1*X12 


UTW 720 


Y7I=Y1*Z12-Z1«Y12 


UTW 730 


ALPl = XYKflXYK + X7J-»XZvJ+ni«Y7I«YZT 


UTW 740 


R1P1=S0RT (Xl^^Xl+Pl^Yl^Yl+Pl-ttZl^Zl ) 


UTW 750 


R?ei=SGRT {X2«X2 +pi«y2*Y2+P1*7?»7Z1 


UTW 760 


UUPl=(X2«Xl2 + Pl«Y2«Yl2 + ei«Z2«Z12>/P?Bl-(XlftXl2+PloYl«Yl2*ei« 

Z1«712UTW 770 


1 ) /RlPl 


UTW 7P0 


IF (IP.EO.I) GO TO 90 


UTW 790 

fifl 

COMINLE 


UTW POO 


G1P1= (1 .-Xl/RlPl) / (Y1*Y1*71«Z1 ) 


UTW 810 


00 TO 100 


UTW 820 

<50 

IF (L.OF.2) GO TO RO 


UTW 830 


G1P1=0. 


UTW 840 

100 

COKTTNUF 


UTW P50 


G2Fl = n .-XZ/R2Pn/ (Y2*Y2 + 72«?2) 


UTW 860 


F12 = IJUBl»XYKyA|.Pl 


UTW 870 


G12=-Y2«G2Bl+Yl«r-iei 


UTW P80 


F13=UUE1»XZJ/ALP1 


UTW 890 


G13=Z2«G2S1-71«G1P1 


UTW 900 


F1=-F13*CF«FCP-F12*SF 


UTW 910 


F2=G13«CF«FCP-01?»SF 


UTW 920 


ft=uioi*yzi/alpi 


UTW 930 


IF {J.LF.LPAKED go to im 


UTW 940 


F1=2.«F1 


UTW 950 


F2=P.*F2 


UTW 960 


F3=2,«F3 


UTW 970 

110 

COKTINUF 


UTW 980 


U CII ) =F3^^CHORD«S^ (P I ♦ ISN ) *6 APP A (JJ)/ (P.*FN) 

UTW 990 

120 

W (in = (FUF?) *CPCPD«SN (MI.ISM *GAPWA (JJ) /<P.*FM 

UTWIOOO 


VT=W (1 ) +FACTCB»W (?) *vt 


UTWIOIO 


VX = U <1 ) +FACTCR*U (?) +VX 


UTW1020 


IF (J.LT.PP) GO TC 130 


UTW1030 


IP=IP*1 


UTW1040 


17=17+1 


UTW1050 


IFF=MM*1 


UTW1060 


MM=PH+NK 


UTW1070 


IF (J.GT.LPANFL) JKT=JKT+1 

OEIGINA1.PAGE& 

OF POOR 

uTwioao 



130 


IF <JKT.E0, (NP*1) ) 

COKTINUE 

RETURN 

FKD 


JKT=1 


UTW1090 

UTWllOO 

UTWlllO 

UTWU20- 


SUPPOUTINE FORCE <IC , AF t CLT , CPT ,CCT ,SECT » CL . CM , CD ,XLL .XTT , CP ,CPF ,GFRC 10 
1AMP,GAVP,GAMR,CAM(,EP,CAMLET,CRFF,CyP»CLB»CNP,CLP»CYP,CNP«CYR,CLRR,FRC 20 


?CNR,CT) 



FRC 

30 

DIMFNSrCN SECT(l), CL(1). CM ( 1 ) , 

CD(1) , 

XLUl), XTT(l), CP(1), CPFFRC 

40 

1(10*1), GAVp(i), pAMB(l), GAMRU) 

, CT(l) 

FrC 

50 

COMMON /GEOM/ HALFSV* ♦ XCP (20 0 ) 

,YCP (200) ,7CP (200) ,XLE (50) ,YLE (50) ,XTFRC 

60 

1F(F0) ,PSI (20) ,CH (95) ,XV C200) , 

YV(100),SN(P,P),XN(200,2),YN(200,?),ZFRC 

70 

2N (200,2) , WIDTH (P) ,YCON (2?) , SWEEP (50 ) , H ALFR , 5 J ( 2 1 , 8 ) , EX (95,2) ,TX(95FRC 

fiO 

3,2) ,SC (160,5) ,SI (160,5) ,LC (3) 



frc 

90 

COMMON /COST/ LTCT ,LPAM ,N JW (p ) 

,LP4NFL 

,IFNTN,LPAN2,EXIT,PTIAL,TWFRC 

100 

1 1ST, OF (5) ,NFP 



FRC 

no 

COMMON /CONST/ NC? .NCW ,N 1 ( P) , 

NSJ, 

NCJ(5) , 

LAST,MJW1 (3,S) ,MJW2 (3,5) ,JFPC 

120 

1PAKEL,MJvJ( 5) ,NW(3) ,hNJ,NjP 



FRC 

130 

COMMON /SOME/ NC,NV(lNe,UAT,KAL,lV(F,LWFJ, 

CHOPDT (3) ,SNG (5) ,YC (5) ,YCNFPC 

140 

1(6) ,WKN,R0X,M0G,NDO 



FRC 

150 

PI=3. 14159265 



FRC 

160 

1A=?*JPANFL 



FRC 

170 

IF (in.FQ.P) IA=0 



FRC 

1 PO 

PK=5.»PI/180. 



FRC 

190 

CLT=0, 



FRC 

200 

CMT=n, 



FRC 

210 

COT=0, 



FRC 

220 

CYp=0, 



frc 

230 

CLP=n. 



FRC 

240 

CNF=n. 



FRC 

250 

CLP=0. 



FRC 

260 

CYP=0, 



FRC 

270 

CNP=0, 



FRC 

2P0 

CYP=0, 



FPC 

290 

CLFP=0, 



FRC 

300 

CNP=0, 



FRC 

310 

KW = ] 



FRC 

320 

SK=?NG(1) 



FRC 

330 

CK1=S0RT (1,-SK«SK) 



FRC 

340 

KC=1 



FRC 

350 

NCCL=M1 (1) 



FRC 

360 

KLL = 0 



FRC 

370 

MM = 0 



FRC 

3P0 

IU=1 



FRC 

390 

IF (NW(2).NE,0) IU=2 



FRC 

400 

IF (NWO).NE,0) IL-3 



FPC 

410 

NW2=NW(1)*NW(P) 



FRC 

420 

NW3=NW (?) +NW (3) 



FRC 

430 

NCW1=NCW+1 



frc 

440 

NL = 1 



FRC 

450 




DO 1P0‘T=1.NCS 

FPC 

460 


IF (NW 12 ) .EO.O) GO TO HO 

FRC 

470 


II=I*NCS 

FRC 

480 


IF (WW(3)>E,0) GO TO 10 

FRC 

490 


CHCRD=CH (I ) +Ch (II) 

FRC 

500 


GO TO 30 

FRC 

510 

10 

1II=II+NCS 

FRC 

520 


CHCPO=CH (I )+CH (II) +CH (III) 

FRC 

530 


60 TO 30 

FPC 

540 

20 

•CHCRD=CH (I ) 

FRC 

550 

30 

CONTINUE 

FRC 

560 


CNL=0. 

FRC 

570 


CL (T)=0. 

FRC 

580 


CM(I)=0. 

FRC 

590 


CD(I)=0, 

FRC 

600 


CVPS=0, 

FRC 

610 


CLPS=0, 

FRC 

620 


CNPS=0. 

FRC 

630 


CLP*:=0. 

FPC 

640 


CYPS = 0. 

FRC 

650 


CNP5 = 0 , 

FRC 

660 


CYpcrf), 

FRC 

670 


CLPF=0, 

FRC 

680 


CNR5=0, 

FRC 

690 


IF (YLE(I) ,GT,YG(KW) ) 60 TC 40 

FRC 

700 


GO TO 50 

FRC 

710 

iO 

KW=KW+1 

FRC 

720 


SK=?NG (KW) 

FRC 

730 


CK1 = S0PT (1 .-SK«CK) 

FRC 

740 

50 

CONTINUE 

FRC 

750 


no 140 J=ltNCVt 

FRC 

760 


NN=J*WN 

FRC 

770 


IF (NW(2).eo,0) GO TO 70 

FRC 

780 


IF (J.LE.NW(l)) GO TO 70 

FPC 

790 


IF (J.GT.NWH) GO TO 60 

FRC 

800 


LL=LPAN]+NW(2)« (I-l) +J-NN(1) 

FPC 

810 


IL=II 

FRC 

820 


JLL = J-NW (1 ) 

FRC 

830 


L = H 

FRC 

840 


FN=NW'(H) 

FRC 

850 


60 TO 80 

FRC 

860 

60 

LL=LPAN'2 + NW (3)« (I-D+J-NW? 

FRC 

870 


TL=III 

FRC 

880 


JLL=j-NWH 

FPC 

890 


L=3 

FRC 

900 


FN=NW(3) 

FRC 

910 


GO TO 80 

FRC 

920 

70 

LL'«N‘N 

FRC 

930 


IL = T 

FRC 

940 






JLL=J 

FRC 950 


L = 1 

FRC 960 


FN=NW(1> 

FRC 970 

80 

CONTINUE 

FRC 980 


XC='(XV(LL)-XLE(T) )/CHORD 

FRC 990 


ftZ=7CR (XC) 

frciooo 


BZ=7CT fXC) 

FRClOlO 


GP?=CP (LL)«SN (JLLfL)«CH (ID/FN 

FRC1020 


IF {DF (NL) .LE. 0.001) GO TO 90 

FRC1030 


IF {PTIAL.LE.0,1 ) GC TO 100 

FPC1040 


IF (NW (3) .EO.O) GC TO 120 

FRC1050 


IF (LL.GE.MJWl (3,NL) .AND.LL.LF.FJWE (3,NL) ) GC TC 110 

FRC1060 

90 

CAy=A7-(AZ-EZ)«YVaL)/HAl.FP 

FRC1070 


EP)-A = XLL { I) -ATAN (CAh* ) 

FRC1080 


CS=COS (EPHA) 

FRC1090 


SS = SIN (EPHA) 

FRCllOO 


SC1=SIN {EPHA-XLl (I) > 

FRClllO 


CCl = COS (EPHA-XLL (D ) 

FRC1120 


GO TO 130 

FRC1130 

ioo 

IF (NWJPl.NF.n.AND.LL.LE.LPAM) GC TO 90 

FRC1140 


IF (NW(3) .NE.r.ANr.LL.UE.LPAN?) GC TO 90 

FRC1150 

no 

EP = XLL (I) +DF (NL) 

FRC1160 


CAP = A7-(AZ-BZ) «YVaL)/HALFB 

FRC1170 


ep=FP-ATAN (CAN ) 

FRCllPO 


C9=rOS (EP) 

FRC1190 


SS=FIN(FP) 

FRC1200 


sci=sin(Ep-xll (in 

FRC1210 


CC1=C0S (EP-XLL (I) ) 

FRC1220 


GO TO 130 

FRC1230 

120 

IF (LL.GE.MJVkl (?,NL) .ANC.LL.LE.PJV)? (?»NL) ) GO TC 110 

FRC1240 


60 TO 90 

FRC1250 

130 

CONTINUE 

FRC1260 


CL (I)=CL (I) +6B«^«CS 

FRC1270 


CM (DsCMdl-GPcoxVILD^C? 

FRC1280 


C0(I)=CD(I)+6e9«SS 

FRC1290 


IF (LAT.NE.l.OP.IC.EO.l) 60 TO 140 

FRClSOn 


JJ=LL*IA 

FRC1310 


ViP = GANP{JJ)«SN(JLL.L )«CH(IL)/FN 

FRC1320 


WB=GAMB(JJ)«?N (JLL«L)*CK (lU/FN 

FRC1330 


WR = GAMR{JJ)«sN (JLL»L>»CH (ID/FN 

FRC1340 


CLPS=CLBS^WB«CK1«CC1 

FRC1350 


CLPS=CLPS>WP«CK1«CC1 

FRC1360 


CNPS=CNPS+WP«SC1»YLE (I) ♦WP«XV (LL)»SK«CC1 

FRC1370 


CLPS=CLPS+WR«CK1*CC1 

FRC13P0 


CNPS=CNPS+WB«SC1«YLE (I ) +WP»XV (LL ) «SK«CC1 

FRC1390 


CNPS=CNPS+WP«SC1»YLF (1) +WP«XV (LL )«SK«CC1 

FRC1400 


CYPS=CYRS+GBS«99«XV (LL )/hALFP 

FRC1410 


CYPS=-CC (1) 

FRC1420 

140 

CONTINUE 

FRC1430 



CAKLE=C/iWLEP-(CiMLER-C/iMLET)«YLF (I) /HALFP 

FRC1440 

EPf-AsxLL (I)-ATAN (CAPLE) 

FRC1450 

CZ=COS (EPHA) 

FRC1460 

D7=SI^ (EPHA) 

FRC1470 

CL(I)=CL {I)«PI/CH0RD+SECT(I)«D7 

FRC140O 

CP (I >=CM (I)»P1/ (CREF*CHOpn) 

FRC1490 

CD(1)=CD (I)*FI/CF0RD-SFCT(n«C7 

FRC1500 

IF (LAT.KE.l.OR.ID.EO.l) GO TO lEO 

FRC1510 

FS = COS (SWEEP (in 

FRC1520 

CTH=PI/2,»SQRT (1.-AP*AP«FS<»FS) /FS 

FRC1530 

CLPS=CLPS*P1 /CHORD 

FRC1S40 

CLPS=CLPS»PI/CHCRC 

FRC15B0 

CNPS=CNPS»PI/CHCRC 

FRC1560 

CNPS=’CNRS*PI/CHCPC 

FRC1570 

CYPS=CYPS*BK«PI /CHORD 

FPC15P0 

CYPS=CYPS«Pl/CHCPn 

FRC1590 

SSN=SIN(SWEEP(I) ) 

FRC1600 

TAN=SSN/FS 

FRC1610 

CTPS=CTP»TAN 

FPC162n 

SICE=CTHS*2.«CPF (1,1) «CPF(3,I) 

FRC1630 

SICF?=0. 

FRC1640 

SICF3=0. 

FRC16S0 

CNP?=CNPS«PI/CHOPD-CTH«?,«CPF M,I)«CPF(3,I)oyLF(I) 

FRC1660 

CNFS=CKPS-SIDE*CK1*XLE ( I ) 

FRC1670 

CYPS=-CLPS«St</CK 1+SIDE«CK1 

FRC1680 

CNBF = CKPS-SIDE2«YLE (I)-SinFP»Ct<l»XLE ( I) FT AN 

FRC1690 

CNPS=CNRS-SI0F3«YLF (I)-SirE3«CKl»XLF (I) #TAN 

FRC1700 

CYPS=-CLBS*SK/CK1+CYPS 

Fpcmn 

CYP?=-CLRS*SK/CK1*CYRS 

FRC1720 

CYPS=CYPS*SIOF?eCKl«TAN 

FRC1730 

CYPS=CYRS+SirF3«rKl«TAN 

FRC1740 

CLP5=CLPS*PI/CHrRD 

FRC17B0 

CONTINUE 

FRC1760 

IF (I.LT.NCOL) r-(^ TO 160 

FRC1770 

KLL=NCOL-l 

FPC1780 

KC=KC*1 

FRC1790 

NCOL=NCCL*Ml (KC)-l 

FRC1800 

KL=!-KLL 

FPCIEIO 

FP=F1 (WC) 

FRC102O 

AA=CHORCOSJ (KL ,KC) "WIDTH (KC)/FP 

FRC1P30 

CLT = CLT + CL ( I ) "AA 

FRC1S40 

CPT=CMT+CH (I ) "AA 

FRC1P50 

COT=CDT+CD (I) "AA 

FRC1S60 

IF (LAT.NE.l.CR.in.FO.l) GO TO 170 

FRC1A70 

CYP=CYE+CYRS"AA 

FRCIEPO 

CLE=CLR*CLRS"AA"YLE (1) 

FRC1S90 

CNP=CNP*CNBS*AA 

FRC1900 

CLP=CLP*CLPS«AA*YLE (I) 

FRC1910 

CYP=CYP+CYPS"A A 

FRC1920 
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CNF = CNP*CNPS«/'A 
CYR=CYR+CYRS«AA 
CLRF=CLPR*CLRS*AA»YLE (1) 

CNR=CNR+CNRS«AA 
170 CO^TINUF 

MM=(NCW-NW3)*I 

IF {LL.FG,MJW2{IU,Mn NL = NL + 1 
180 COKTINUE 

IF (LftT.NE.l.OR.ID.FO.l) GO TO 2?0 
SUP1=0, 

SUF?=0, 

SUF3=0, 

SUK4=0. 

SUFE=0. 

SUF6=0. 

KD=KOG 
ISK = 1 
FN=AW(1) 

Kl = l 

DO 210 J=1,NCV( 

JJ=J 

IF (J.LF.NW (1) ) GC TO ?nO 
IF (J.6T. (NW(U +NW {?) ) ) GO TO IFO 
ISA = 2 
FN = NW-(2) 

JJ=J-NW (1) 

Kl = 2 

GO TO 200 
150 ISK=3 

FN=AW (3) 

JJ=J-NW(1)-NW (2) 

Kl=3 

200 FJJrJJ 

XQ=YCN(K1) +0.S*CHCPDT(K1)«(1.-C0S< (2.«FJJ-1 . ) «FI / (2,«FN) ) ) 
CK=CHORDT (Kl)*?.*rPF (2 . J) «GPF (4 , J) *SN (JJ»ISN)/FN 
CK2=CH0RDT (K1)*2,«CPF (PfJ)*CPF (6 ♦ J ) *SN « JJ , ISM /FN 
CK3=CHOPOT (K1>*?.*CPF (2,J) *CPF(P,J)*SN tJJ.ISN)/FN 
COT=SORT (1,-SNG(KC>PSN6(KC) ) 

CK=CK«C0T 
CK2=CK2*C0T 
CK3=CK3»C0T 
SUV1=SUM1*CK 
SUF3=SUM3-fCK2 
SUt'AsSUMA'+CKP^XG 
SU^'5=S^J^'5♦CK3 
SUF6=SUM6*CK3«XQ 
210 SUM2-SUM2+CK*XQ 
SUP1=SUP1«PI*2. 

SUP2=SL‘P?«PI»2, 


FRC1930 

FRC1940 

FRC1950 

FPC1960 

FRC1970 

FRC1980 

FRC1990 

FPC2000 

FRC2010 

FRC2020 

FRC2030 

FRC2040 

FRC2050 

FRC2060 

FRC2070 

FRC 20 eo 

FRC2090 

FRC2100 

FRC2110 

FRC2120 

FRC2130 

FRC2140 

FRC2150 

FRC2160 

FRC2170 

FRC2180 

FRC2150 

FRC2200 

FRC2210 

FPC2220 

FRC2230 

FRC2240 

FRC2250 

FRC2260 

FRC2270 

FRC220O 

FRC2290 

FRC2300 

FRC2310 

FRC2320 

FRC2330 

FRC2340 

FRC2350 

FRC2360 

FRC2370 

FRC23P0 

FRC2390 

FRC2400 

FRC2410 



cyp=cyp+suhi 

CNPsCNP-SUK'? 

CYP=CYe+SUM 3 »PI«?. 

CNP = CNP-'5UM4»PT»2, 

CYP=CYP+SUP5«PT«2. 

CNR = CNP-SUP6«PI<»2. 

COMINUE 

CLT = CLT^^PI/(^.<^HALFSVO 

Cf^T = CMT»PI/(2,*PALFSW) 

CDT=C0T«PI/<2,«PALFSW) 

IF (LA7.NE.1.0F.TD.E0.1) GO TO 230 
CYP = CYB*PI/(2,'»PALFSW) /PK 
CLP = -CLP*PI/<4.»HAIFSW-»HALFP) 

CNP=CNP«PI/{4.«HALFSW«HALFP)/PK 
CLP=-CLP«PI/ <4.«PALFSW*HALFP) 

CYP=CYP«PI/(2.«>-ALFSW1 

CNP=CNP«PI/(4.«HALFSW*HALFR) 

CYR = CYP«Piy (?.•»^'ALFSW) 

CLRP--CLRR»PI/ (4 ,«PALFSW«HALFP ) 

CNP=CNP*PI/(4,«PALFSW*HALFP) 

CLP=CLP/PK 
CON"' INUF 

petlpn 

FNC 

SUPPOUTINF FUSLFT ( CPF . H ALFSh * CFFF , SS , CS * L »X 1 ) 
nir/FNSlON AW(21)» CST(IF), CTL(?0)t RP(20), CPF(10»1)» CAi^O) 
COVPON /FUS/ XP (20) »XCF (20) .RF (?0) .?^P (5t?0) ,XLEF,XTEF»V>A -0 (20) 
1UM,NF,NT»CSF (5,]0)»XAS(6),NKF(5).FO,F10,KF,K'TL 
PI = 3. 14159265 
SLFKTHsXTEF-XLFF 
TH1=SNP (5f?0) 

NH1=SNP (5,19) 

DO 10 1=1, NF 
XC=XF (I) 

RP(I)=FUR(XC) 

IF (L.MF.O) GO TO 20 

CONTINUE 

CNFsO. 

CAF=0, 

CPFsO. 

no 50 r=l,NCUF 

IF (NHl.NF.O.ANn.I.LF.NPl) GO TO 30 

FI=I-NH1 

FCUP=NCUM-NH1 

.fp=pi_thi 

TP=TH1 

GO TO 40 

FT = T 

FC( P = NP1 
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40 


50 


60 

70 

PO 


'SO 


PP=TH1 

TP=0. 

COM-INUE 

THETA=(2.*FI-1.)«PP/ (?,«FCL:V) +TP 
IF <L.GE.?) CST(I)=5IN (TKETA) 

IF (L.LT.?) CST(I)=C0S (THETA) 

FNK=NKF (1 ) 

SL=XA?{?)-XAS(1) 

MH=N-KF(1) 

NC=1 
NN = 0 

DO SO 1=1, NF 

CPTL=0. 

ip=i_nn 

DO PO K=1,NCUH 

IF (NHl.NE.O.AND.K.LF.NHl) 60 TO 60 

FCUH=NCUH-NH1 

pp=PI-TH1 

GO TO 70 

FCUF=NH 

PP=TH1 

CONTINUE 

CPTL=CPTL+CPF (K,I)«CST (K)«PP/FCLH 
CTL (T)=-2.«CPTL 

GB=RP(l)«SNP(KC,IF)«qTL(I)*SL/ (?.«FNK) 
CA (I)=GE*FNK/SL 
X=XF (I) 

S=«LFNTH 

DRX=SLOP(X)/RP(I) 

CAF=CAF*GB«DRX 

CNF=rNF*GP 

CMF=CMF*6P*XF(I) 

IP (I.lt.hh.cr.i.eo.nf) go to so 

NC=NC*1 

NN=HH 

HH=PM*NKF (NC) 

SL=XAS (NC*1 )-XAS (NC) 

FNKsNKF (NO) 

CONTINUE 
ICK = 0 

IF (ARS { (XAS (2)-XTEF)/SLFNTH) .GT.O.nn 

rCK = l 

FNF=NF 

NF1=NF+1 

DO no J=1,NF1 

AW(J)=0, 

FJ=J 

DO 100 K = 1,N'F 
FK=K 


FLF 260 
FLF 270 
FLF 280 
FLF 290 
FLF 300 
FLF 310 
FLF 320 
FLF 330 
FLF 340 
FLF 350 
FLF 360 
FLF 370 
FLF 380 
FLF 390 
FLF 400 
FLF 410 
FLF 420 
FLF 430 
FLF 440 
FLF 450 
FLF 460 
FLF 470 
FLF 4P0 
FLF 490 
FLF 500 
FLF 510 
FLF 520 
FLF E30 
FLF 540 
FLF 550 
FLF 560 
FLF 570 
FLF 5P0 
FLF 590 
FLF 600 
FLF 610 
FLF 620 
FLF 630 
FLF 640 
FLF 650 

GO TO 130 FLF 660 

FLF 670 
FLF 680 
FLF 690 
FLF 700 
FLF 710 
FLF 720 
FLF 730 
FLF 740 



n n a 


100 


no 


ISC 


13C 


140 

150 


If 0 


AW CJ) = AW (J) t-Cft (K) «COS( (FJ-1. >« (c.«FK-l 
IF (J.EO.l) AV« (J)=AW (J) /FNF 
IF (J.NB.l) AW ( J) =AW (0)«2,/F^F 
COMIMUE 


)«PI/(2.*FNF) > 


EFPIPICAL 
POTFMIAL 
Xn=0,37P 
THsACOS ( 
'=UP = AW (1 
PPp5_AW ( 
DO 120 J 
FJ=j 
IF (J.GE 

SMV=SH^' + 
SUf'sSUK* 
SMps-SWP 
SMP=SMM“ 
COM INUE 
IF (L.NF 
WRITE (6 
WPITF (f 
no 140 I 
XC=XF (I) 
WRITF (6 
CONTINUE 


PETHGD TO FIND THE STATION' AT WHICH THE FLOW CE 
. SEE DATCOH « 

+0,5?7*X1 
1 ,-2.«X0) 

}«TH 

1)*SIN{TH)-0.'^«AW{2)«<TH*0.5*SIN(2,«TH) ) 

= 1 »NF 

.2) S>'M = «:HR-0.E«4W (J4l )* (SIN ( (FJ-1 ,)*TH) / (Fo-1 .) 

FJ+i.n 

AW ( J+1 )«SIN (Fw*TH) /FJ 
SUM 

SLENTH/(2.«HALFSW) 

«SLENTH«op/ (4.*HALFSW*CPFF) 

xlffxcpef«suh 

.0) CO TO 150 
»190> 

.2O0> 

= 1 ,NF 
/SLEMH 

♦ IPO) xr,RP (I! ,071 (I) 


FLF 

FLF 

FLF 

FLF 

FLF 

ASES TO PEFLF 
FLF 
FLF 
FLF 
FLF 
FLF 
FLF 
FLF 

♦SIN ( (FJ+IFLF 
FLF 
FLF 
FLF 
FLF 
FLF 
FLF 
FLF 
FLF 
ELF 
FLF 
FLF 


CS+CAF«SS 
SC_CAF*CS 
PI/ (2»*HALFSW) 

PI/ (?.*HALFSW) 

»PI/ (2 ,«HALFSW»CREF) 


CLF=CNF« 

CDF=CNF« 

CDF=C0F« 

CLF=CLF« 

CMF=-CHF 
SS=CLF 
CS=CHF 

IF (ICK.EQ.O) GO TC 160 

CLF=SUH 

SS=CLF 

CS=SMM 

CONTINUE 


750 
760 
770 
780 
7«30 
800 
810 
820 
830 
840 
850 
860 
P70 
880 
890 
900 
910 
920 
930 
940 
950 
980 
970 
9P0 
990 
FLFIOOO 
FLFlOlO 
FLF1020 
FLF1030 
FLF1040 
FLF1050 
FLF1060 
FLF1070 
FLF1080 
FLF1090 
FLFllOO 
FLFino 
FLF1120 
FLF1130 
FLF1140 



IF (L.NE.O) C-C TC 170 

FLE 1150 


WRITF (6f2?0) CLF 

FLF1160 


WRITE (6,210) CNF 

FLF1170 

170 

CONTINUE 

FLFlieo 


RETURN 

FLF1190 

C 


FLF1200 

IPO 

FOPHAT (11F12«5) 

FLF1210 

190 

FOPHAT (/5X,63HTCTAL PRES*:UPE LCACING AT EACH X-STATICN, 

RASED CN FLF1220 


ILOCAL RADIUS) 

FLF1230 
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IVJ OJ <v 


FOP»/AT (/5X»3HX/L»'5X.6HRACIUS»6Xf7HL0Ani^‘G) 


FLF1240 

format (/5X»43HTHE fuselage POTENTIAL MOMENT COEFFICIENT 

= «F1'0.5) 

FLF1250 

format (/SX»4]HTME FUSELAGE POTENTIAL LIFT COEFFICIENT =» 

F10.5) 

FLF1260 

END 


FLF1270 

SUPROUTINE CPFUS (NT »N * P * CPF ,NF-, S , XLEF.» XF, X AS t LF ANEL t LPAN 1 »NKF »NW 

,CPF 

10 

PB,AM.SSfC‘:»SNP,F0.F10,WARC.JL«LFAN'2,CRFF,NCJ»MJJ»LAST,L» 

NJH.NP) 

CPF 

20 

dimension B(1), XF(1), PF(?0)'t SNF{"»P0)» WAROtl)* N'KF (1 ) 

. NW(1), 

CPF 

30 

XAS (I) 


CPF 

40 

DIMENSION CPFdO.l), U(P), V(8). NCJ(l). V JJ ( 1) 


CPF 

50 

PI = 3.141'5S265 


CPF 

60 

FNT=NF 


CPF 

70 

Thl=SNP (E»‘?0) 


CPF 

80 

NH1=SNP (5»19) 


CPF 

RO 

XTEF=XLEF+S 


CPF 

100 

NFI=NF-1 


CPF 

110 

N7=l 


CPF 

120 

IF (L.NE.O) N7=? 


CPF 

130 

FL-n. 


CPF 

140 

FL1=0. 


CPF 

ISO 

FNK=NKF (] ) 


CPF 

160 

«:L=XAS(2)-XASn) 


CPF 

170 

MMa^KF (1) 


CPF 

IPO 

NC=1 


CPF 

190 

NN = r 


CPF 

200 

ltctal=jl«2-lpanel 


CPF 

210 

IF (JL.EO.O) ltctal^lpanfi, 


CPF 

220 

DO 10 1=1 «NF 


CPF 

230 

II=I+LTOTAL 


CPF 

240 

TP=I-NN 


CPF 

250 

XC = XF (I) 


CPF 

260 

PF(I)=FUR(XC) 


CPF 

270 

FL1 = FL1+B (II)«FNP (NC»IP)«SL/FNK 


CPF 

2P0 

FL=FL»WARD (I)«SNP(NC»IP)«FL/FNK 


CPF 

290 

IF (I.LT.MM.OR.I.EQ.NF) C-r TO ID 


CPF 

300 

NC=NC+1 


CPF 

310 

NN = MM 


CPF 

320 

MM=MMi*NKF (NO 


CPF 

330 

SL=XAS (NC + 1 )-XAS (NO 


CPF 

340 

FNKsNKF (NC> 


CPF 

350 

continuf 


CPF 

360 

FL=Fn*0.?«PI«FL 


CPF 

370 

FL1 = F10 + 0..5«PI»FI 1 


CPF 

380 

DO ISO I=1jNF 


CPF 

390 

A1=XF(I)-XTEF 


CPF 

400 

A2 = S0PT (A1*A1*PP*PF (I)«PF (in 


CPF 

410 

XP=XF (I)-XLEF 


CPF 

420 

At=SQPT(XP»XP+BB«RF(I)«RF(n ) 


CPF 

430 

rFTL=- (A1+A2) /RF ( I) 


CPF 

440 

rFTO=- (XP+A61XPF (I) 


CPF 

450 



20 


30 


40 

■50 


•6 0 


70 


J=0 

IF (L.KF.O) J=I 
COMINUE 

II=I*NF»(J-1)*LTCTAL 
FNK=MKF ( 1 ) 

<?L = XAS f2)-XAS (1) 

( 1 ) 

NC=I 

NN=0 

FJ=0 

U(J+1)=0. 

V(O■^l)=0. 

IF (J.GT.2.ANC.I.FQ.NF) GC TO 70 
rFL=“( (A1*A?)/of n ) 

RF0=-( (XP+A6)/PF(I))««J/A6 
IF (J.LT.2) GO TO ’0 
RFTL=0, 

RFTO=0. 

COMINUE 
no 60 KC=1»NF 


CPF 460 
CPF 470 
CPF 480 
CPF 4«30 
CPF 500 
CPF 510 
CPF 520 
CPF 530 
CPF 540 
CPF 550 
CPF 560 
CPF 570 
CPF 580 
CPF 590 
CPF 600 
CPF 610 
CPF 620 
CPF 630 
CPF 640 
CPF 650 


IP=KC~NN 
B1=XF (I)-XF (KC) 

P?=5QRT(R1»P1*RP«PF(I)»RF{I) ) 

RFX=-{ (P1+B?)/RF (I) )*«J/P2 
KK = KC+NF*(J-1> *L TOTAL 
IF (J.EC.O) GC TC 40 

U(J+1)=U(J + 1)-(P(KK)-P(ID) «RFX«S^P (NC,IP) «CL/F^K 
IF (J.EG.O) GO TC 50 
RFTX=-( (Bl-^B2)/RF{in«*J/FJ 

V(0»1)=V(J*1)4P (KK) «SNP (NC, IP) * (RFTX-RFTU «SL/FNK 
GO TO 50 

U(J + l)=U(J•^l)-{VlAnD (KC)-WARD <I) ) «pFx<vsK'P ( KC . TP ) « SL /FNK 

IF (KC.LT.PP.CP.KC.EO.NF) GO TO 60 

KCsKC+l 

KNsf'M 

MM=PM+NKF (NC) 

SL=XAS (NC*l)-XAc (KC) 

FKK=NKF (NC) 


CPF 660 
CPF 670 
CPF 680 
CPF 690 
CPF 700 
CPF 710 
CPF 720 
CPF 730 
CPF 740 
CPF 750 
CPF 760 
CPF 770 
CPF 780 
CPF 790 
CPF BOO 
CPF 810 
CPF 820 
CPF 830 


CCKTINUF CPF 840 

IF (J.FO.l) V{v'*n = (-V(J*1 )*O.=*FI+<RFtL-RFT0)«F10)/(4.«PI) CPF 850 

IF (J.GT.l) V{v4l) = (-V(J + l )«0.‘=«PI)/<4.*Pn CPF 860 

IF (J.EO.O) u {J4] >=- (FL*RFL-FP*PF0+U (J+n *n,5»FI-WAPC (I) «ALCG( (Al+CPF 870 
1A2)/ (XP+A6) ) )/ (4,flPI ) CPF 880 

IF {J.EO.U L t J + l > =- (FL1*PFL-F1 0«PF0+U (J+l )*0,‘^«PI*B {ID /F»;« (RFL*ACPF 890 
12-RF0«A6) )/(4,«PI) CPF 900 

IF (J.GT.D L ( J+1 ) =- tU ( J4l) «0,5*PT+P ( ID /FJ» (RFL*A2-RF0«A6) ) / (4.8PCPF 910 
ID CPF 920 

V{J*D=V (J+D/PF (I) CPF 930 

COMIK'UF CPF 940 
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fio 

'50 


ino 


IIP 

C 


J=«J+1 

IF (J.LE.N) GO TC 20 
N1 = P 

IF <L.N'E,0) M=N+1 
nc 140 F=1,NT 

IF (NHl ,NE,0.AKD,K,LE,KH1) 60 TO PO 

FK=K-WH1 

FT=M-NKl 

PP=FI-^TH1 

TP=TH1 

60 TO <30 

FK = K 

FT=KH1 

PP=TH1 

TP = 0. 

C0^T1^!UE 

THFT4* (2,«FK-1 , ) opP/ (2,*FT) +TP 
STMA=6IN (THETfl) 

CnSTAsCCS (THET4) 

PHIX=0, 

PHIT=n. 

DO 100 J = NZ,M 
FJ = J 

I.F (L.UE.l) PHIX=PHX*U (J) «C0S ( (FJ-1 .) «THET4) 

IF (L.PT.l) PHX=PHX+U(J>*SINMF0-1.)1»THET4) 

IF (L.LE.l) PHT=PHIT4.V(J)«(FJ-1,)*SIN((FJ-U)«THFTA) 

IF (I.6T.1) PHIT=PHIT-V(J)«(FJ-1.)*C0S(<FJ-1.)*THFTA} 

X=XF (1) 

Y = RF (I)*StNTA 
7=RF (T)»COSTA 

CALL UTFW {X.T,7»S1NTA,C0«:TA,LAFT,,LPANFI .BB,LPAM»NW,B,VX,VT 
lANP,NCJ*MdJ.LtKJP,NP) 
phix=phix*vx 
PHIT=PPIT+VT 
IF <L.K'E.O) GO TC 110 
0PX=SL0P (X) 

0PX=DRX/RF (1) 

SPX=I ./«:QRT (1.4CRX«CRX) 

OPX= (CS+U ( 1 ) > *DPX«SRX 

UVFL=CS*PHIX 

V0IF=1 .-UVEL»«?-nRX*«2 

PHITsPHIT-SSoSiNTA 

IF (JL. EC. LAST) WRITE (OP) PHIX.FHT 
IF (JL.EO.O) write (07) PHX^PFIT 
GO TO 120 

IF (JL.FG.LAST) read (08) PX»PT 
IF (JL.EO.O) READ (07) Px.PT 
VniF=-2,* n , *FX) «PHIX + 2,«AM«AP*PX«PHIX 
VniF=-2.«PHIX 
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CPF13G0 
CPF1360 
CPF1370 
CPF1380 
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COMINUF 

IF (Am.LE.0.1) FC to 130 

IF (L.NF.O) GC TO 130 

CPF (K,I)=VDIF + flM»4P«Ph*IX«PHIX 

GO TO 140 

CPF (K, I)=VniF 

CONTINLF 

CO^TINUE 

RFTUPN' 


END 

SUPPOUTINE SCVtJ (WKtX,Y,7.GAKP'A,LPAKEL»ISYM) 

DIMENSION GAVl'A m SOW 

COKVONi /GEQV/ HALFSWfXCP (200 5 tYCP (200) ,7CP (200) »XLE (50) *YLF (50) , XT SOW 
lF(5C)»PSI(P0),Cl'(Q5)»XV(2O0)tYV{10O).SN(8«P)tXN(200»2)»YN(200»2) ,ZSDW 
2N (200,2) ,WIDTH (P) ,YCON (25) ,?WFFP (5 0 > ,HALFP , S J ( 2 1 .8 ) »EX (55,2) ,TX (S=iSDW 
3,P) ,SC (160 ,5) ,5T (160,5) ,LC (3) SOW 

■ COVPON /CONST/ NCS,NCW,W1 (6) ,NSJ,NCJ (5) ,(.AST,WJW1 (3,5) ,KJWP (3,5) ,J50W 
1P4NEL,WJJ (5) «NW (3) ,NNJ,NJP 

COPl^ON /AERO/ API ,AK?,P1 ,R?,CL (30) ,CT(30) ,CnnO) ,GAM (2,130) 

T5N=1 


CPF1440 

CPF1450 

CPF1460 

CPF1470 

CPF14P0 

CPF1490 

CPF1500 

CPF1510 

CPF1520 

CPF1530 

CPF1540- 

SOW 10 


!7=ACS 

IF (NW(2).NF.O) I7 = I7*Nr«; 

IF (NW(3).NE.O) I7=I7*NCS 
17=12*1 

IF (NW(2),NE,0) ISN=ISN+I 
IF (NW(3).NF,0) ISN=ISN+1 
WK=C, 

iff=lpanel 

INC=1 

MMs:LPANEL*NCo (1 ) 

NN=KCJ(1) 

LAET1=LAST-1 

li=lpanel+i 

ji=lpanfl+i 

00 70 J=J1,LAST 

JJ=J-LPANEL*JPANEL 

PI=J-IFF 

FN=KN 

IF ( J.LT.PJJ ( INO) ) NN = NCJ(IND) 
CHCPD=CH (17) 

IF (J.EO.Ll) GO TO 10 
GO TO 20 
ISN=ISN*1 
LlsI/JJdND)*! 

NL=PJJ (INO) -1 
IF (NL.EO.LASTl) GO TO 30 
IF (J.ER.NL) I^D=I^^+l 
CONTINUE 
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sow '170 
SOW leo 
sow 190 
sow 200 
sow 210 
sow 220 
sow 230 
SOW 240 
sow 250 
SOW 260 
SOW 270 
SOW 2P0 
SOW 250 
SOW 300 
SOW 310 
SOW 320 
SOW 330 
SOW 340 
SOW 350 
SOW 360 
SOW 370 
SOW 380 
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50 
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70 


XrliiXN'C J»1 ) -X gpyj 3^Q 

xa = XN(J,2)-X 5 :DW .^Oq 

X12=XN-(J,2)-XN(J-, 1) SOW .410 

Y3^=YN’( J t 2 ) -YN ( J , 1 ) 50V^ 

71 2=i?N ( J.»2) -ZN ( J» 1 > SRVI 43n 

71=-ZN(J,,1)-Z ’SOW 440 

7?=7N(J*2)-7 ’SOW 4'50 

X7J=X1«712-Z1«X12 SOW 46'0 

00 -60 I'I=1 »2 SOW 470 

SOW 480 

IF (TI.FG.?) FCP=-l. SOW 490 

yc=y*fcp sow 500 

y1=YN ( J,1 ) -YC SOW 510 

Y2=YN(J,2)-YC sow ‘^20 

XYK = X1*Y12-YH>X1? -SOW 530 


Y'7T = Y1*Z12-Z1«Y12 SDW 

ALP1=XYK«XYK4X7J«XZo+B1*Y7I«Y?T SDW 

P1P1=SGRT (X1-bxi*P1*Y1«Y1+P1«71«71> SOW 

P2P1=SGRT (X2«x?*Pl«Y?«Y?*Pl«72*72) 5DW 

UUPl=(X2»Xl?+Pl«Y2*Yl?+Pl«72«712)/R?Rl-(XloXl2+e '*Y1«Y1?+51«71«712SDW 
1)/PTP] SDW 

01Pl=(l.-Xl/RlP])/(Yl«Yl47l*71) SOW 

G2F’ = (1.-X2/P2P'1)/ (Y2«Y2 + 72«7?) SOW 

IP (ALPl .LE.l ,F-4) GO TO 40 SOW 

Pl=- {UUEI«X7U/ALP1)«2,«FCP SOW 

GO TO 50 SOW 

F1=C. SOW 

COKtjnuF SPyj 

F2={72*C-2P1-Z1<‘G1P1)«2.«FCP SOW 

WK = uK 4 (Fl*F'2)«fHCRC*SN (WT . I?^ ) »G4FPA ( JJ) *FCP/ < P , <»FM SOW 

TP tJ,LT.MM) GC TC 70 snw 

u-iz.i 

IFF=MM SOW 

MMBf»M + KN 

CONTINUE SOW 

Rftlrn sow 

sow 
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